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Editoriale 


Troverete in questo numero un questionario, che 
in parte riprende quello pubblicato sul nr. 0 della 
rivista. Vi saremo molto grati se, anche in fotoco¬ 
pia, ce lo ritornaste compilato. Permetterà alla re¬ 
dazione di avere la situazione reale delle esigen¬ 
ze dei nostri abbonati. 

Sempre per quanto riguarda gli abbonati, vorrei 
puntualizzare alcune cose: 

1 - Nello scorso mese di dicembre ’86 e all’inizio 
di gennaio ’87 è stata inviata una offerta di abbo¬ 
namento. Supponevamo, infatti, che molti pos¬ 
sessori di computer Laser non fossero informati 
dell’esistenza della rivista. 

I risultati ci hanno dato ragione. È successo, na¬ 


turalmente, che l’offerta sia giunta anche a chi 
già abbonato è. E qualcuno ha risposto. Ebbene, 
tutti coloro che sono già abbonati ed hanno già 
pagato l’abbonamento sono pregati di attende¬ 
re, per il rinnovo dello stesso per il 1987, una co¬ 
municazione da parte della redazione, in parten¬ 
za in questi giorni. 

2 - Considerato il successo della rivista, abbiamo 
pensato di affidare ad una agenzia specializzata 
la cura e la realizzazione della stessa, con gli in¬ 
dubbi vantaggi: maggior numero di articoli, di li¬ 
stati, di proposte, di pubblicità... di pagine della ri¬ 
vista. 


IL DIRETTORE 














A CURA DELLA REDAZIONE 



Posta e telefono 


Riceviamo in quest'ultimo periodo lette¬ 
re il cui contenuto, principalmente, si 
può dividere in due categorie: gli insod¬ 
disfatti perché non ricevono la rivista, i 
soddisfatti che la ricevono ma che han¬ 
no problemi con i listati dei giochi pub¬ 
blicati. 

Ai primi vogliamo assicurare che non di¬ 
pende da noi: tutti gli abbonati alla rivi¬ 
sta sono registrati in un computer che 
provvede alla stampa degli indirizzi (ov¬ 
vio, di chi ha pagato - e ci sia pervenu¬ 
to il pagamento). Quale consiglio dare? 
Con le poste italiane, purtroppo, ogni 
consiglio lascia il tempo che trova; si po¬ 
trebbe provare a rivolgersi agli uffici po¬ 
stali, informandoli che siete in attesa di 
una rivista, o che il vostro amico l’ha ri¬ 
cevuta e voi no. Coinvolgere il postino 
(es. "è arrivata la MIA rivista Laser?”). 
Far capire, insomma, che non vi va a 
genio che non vi sia recapitata una rivi¬ 
sta a cui tenete molto. Da parte nostra 
faremo tutti gli sforzi perché questo non 
succeda più. 

In merito ai problemi che alcuni trova¬ 
no nella digitazione dei listati, abbiamo 
scelto il programma Poker pubblicato 
sul n. 3 per Laser 500. 

VECCHI SILVANA di Calcinate (BG) di¬ 
ce che le risulta un errore alla riga 620, 
a differenza di ROSELLINI FRANCE¬ 
SCO di Casale Marittimo (PI) che inve¬ 
ce trova un errore in riga 640 (RETURN 
WHITOUTGOSUB). Francesco, inoltre, 
scrive: "mi vorrei complimentare con 
quei ragazzi calabresi che riescono a fa¬ 
re degli ottimi programmi dimostrando 
una grande esperienza sui computer”. 
Abbiamo voluto riportare i complimenti 
perché ci è sembrato doveroso: bisogna 
dire "bravo!” a chi se lo merita. Un gior¬ 
no, forse, vi racconteremo la storia del 
LCC di Reggio Calabria, di cui cono¬ 
sciamo alcuni componenti. Per il mo¬ 
mento, e per tornare a Francesco e Sil¬ 
vana, giriamo la domanda al Laser CC 
di RC, in particolare ad Agostino: ci so¬ 
no gli errori a riga 620 e 640? E poi, con¬ 
siderato che siamo in tema andatevi a 
gustare la deliziosa pensata che hanno 
avuto i nostri amici di Reggio: un con¬ 
corso per tutti i Laseriani. La trovate su 
questa rivista. 

A DONATO SCOGNAMIGLIO di Erco- 
lano diciamo di mandare ugualmente il 
programma così come lui può (per una 
volta facciamo eccezione). 


cumentato sulla registraizone dei pro¬ 
grammi (su nastro o su disco) è proba¬ 
bilmente DONATO FABRIZIO di PIE- 
TRAGALLA (PZ). E allora chiariamo. 
Generalmente si dà un nome al pro¬ 
gramma (es. 5 REM QUESTO PRO¬ 
GRAMMA NON FA NULLA); ma non è 
obbligatorio: beninteso, basta sapere a 
che tipo di risultato porta il programma. 
Noi consigliamo di dare SEMPRE un no¬ 
me all’inizio di un listato, per una ragio¬ 
ne ottima: a distanza di mesi non è ne¬ 
cessario andarsi a spulciare tutto il listato 
per capire che cavolo fa il programma, 
se esiste un titolo. 

Diverso è il discorso per il salvataggio 
(SAVE) del programma stesso. Anche 
qui, non è obbligatorio dare un titolo 
(tranne che utilizzando un DRIVE), ma 
è quasi necessario farlo, se non si vuo¬ 
le caricare tutti i programmi, fare il LIST 
ed accorgersi che non è quello che si 
cercava. Un esempio: salvo su un na¬ 
stro il programma Poker (e non gli dò 
un nome), e subito dopo il programma 
Bioritmi (sempre senza nome) e poi il 
programma Totonero (come prima) e in¬ 
fine Calcio. Quindi mi dimentico di scri¬ 
vere sulla cassetta i nomi dei program¬ 
mi e a che giro iniziano. Un mese dopo 
come posso fare per sapere quali pro¬ 
grammi ho registrato su quella cassetta? 
Se avessi dato, in fase di SAVE, un no¬ 
me a ciasun programma, mi bastereb¬ 
be digitare LOAD"*” (o CLOAD ”*”) 
per veder scorrere tutti i titoli dei pro¬ 
grammi (* = nome che sono sicuro di 
non aver mai usato). 

Confermiamo ad INCARDONA SALVA¬ 
TORE di Partinico (PA) di aver letto tut¬ 
ta la sua lettera, di essere per molti 
aspetti d'accordo con quanto scritto, di 
poter intervenire sull’aspetto giochi (sce¬ 
nari diversi durante il game), ma di non 
avere, per il momento, pubblicità suffi¬ 
ciente per abbassare il prezzo della ri¬ 
vista e rimpolparla con ulteriori pagine. 


Abbiamo trovato molto interessante la 
lettera di SILVANO COSTANZI di Seni¬ 
gallia (AN) e faremo tesoro dei suoi con¬ 
sigli. Il programma “Toto” per Laser 
310 è, come si dice, in commissione. SE 
verrà ritenuto idoneo, sarà pubblicato in 
un prossimo numero. 

A PILO ANDREANA preghiamo di riscri¬ 
verci e di indicarci come esattamente 
procede, passo dopo passo, anche se 
può sembrare ovvio, sia in fase di regi¬ 
strazione (SAVE) che in fase di carica¬ 
mento (LOAD), in modo da poter chia¬ 
rire i dubbi. 

FONTANA ANTONIO di Vieste (FG) 
chiede: 

1 - come si protegge un programma e 

che codici si usano 

2 - come si sprotegge un programma 

3 - come far andare in “auto-run” un 

programma in modo che non si pos¬ 
sa listare 

4 - come vedere il listato di un program¬ 

ma in cui, dopo aver fatto Break e 
scritto LIST non si vede nulla 
Rispondiamo: 

1 - dipende da che computer si usa. In 

linea generale, occorre andare a 
modificare alcuni valori utilizzati dalla 
ROM. 

2 - bisogna conoscere i codici utilizzati 

per proteggere il programma (se chi 
l’ha protetto ce li svela). 

3 - per mandare in "autorun” un pro¬ 

gramma vedere rivista nr. 1 a pagi¬ 
na 2 (per Laser 500) e nr. 2 pagina 
5 (per 110-210-310). 

4 - vedere risposta nr. 2. 

La volta precedente abbiamo parlato di 
come convertire il print AT del Laser 500 
per gli altri tipi di Laser. Oggi chiariamo, 
una volta per tutte, il contrario, invitano 
i disattenti o gli abbonati di fresco a leg¬ 
gerselo sulla rivista nr. 2 pag. 20 o sul 
manuale in inglese pag. 374 o “Appen- 
dix D” (esistono diverse versioni del ma¬ 
nuale). 


AVVISO 

PER GLI ABBONAMENTI 
IN SCADENZA: 

attendere comunicazioni 
dalla redazione. 


Qualcuno che ancora non si è ben do- 
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Parliamo di... memorie 


Tutti i sistemi logici programmabili, sia 
di tipo convenzionale che a micropro¬ 
cessori, utilizzano supporti di memoria 
dove, le varie istruzioni di programma 
ed i risultati delle elaborazioni precedenti 
vengono scritti e/o letti. 

Per definizione, chiameremo '‘memo¬ 
ria" ogni dispositivo che sia in grado di 
ospitare informazioni in forma codifica¬ 
ta consentendone la lettura, ed in casi 
particolari, successive modifiche. 
Siamo in grado di valutare le prestazio¬ 
ni dei vari tipi di memoria riferendoci ad 
alcune caratteristiche: 

1) SCRITTURA Tramite diverse tecni¬ 
che, che dipendono dal dispositivo 
adottato, siamo in grado di scrivere in 
memoria dati e programmi. Tale tipo di 
operazione può modificare in maniera 
irreversibile la memoria, oppure, in se¬ 
guito, può essere rieffettuata per intro¬ 
durre nuovi dati diversi da quelli prece¬ 
dentemente introdotti. 

Il costruttore, tramite i diagrammi dei ci¬ 
cli di scrittura, fornisce la sequenza del¬ 
le fasi di questa operazione. 

2) LETTURA Tutte le informazioni che 
sono contenute in un supporto di me¬ 
moria, devono poter essere lette dal re¬ 
sto del sistema, previa selezione ed abi¬ 
litazione della memoria stessa. 

La selezione diviene necessaria quan¬ 
do nell'apparecchiatura si trovano più 
supporti che sono fisicamente separati 
tra loro, ognuno con un proprio indi¬ 
rizzo. 

L’abilitazione serve per impedire che il 
dispositivo agisca in tempi diversi per i 
quali è richiesto il suo funzionamento. 
Anche in questo caso il costruttore prov¬ 
vede a fornire, tramite i diagrammi di let¬ 
tura, tutte le fasi di questa operazione. 

3) CANCELLAZIONE Scollegando l’a¬ 
limentazione o con tecniche particolari 
è possibile, per alcuni dispositivi di me¬ 
moria, cancellare i dati in esso memo¬ 
rizzati. 

Comunque, non sempre i dati hanno 


una memorizzazione permanente nel 
tempo, parleremo quindi di memorie 
"volatili", in caso contrario di memorie 
"non volatili”. 

4) TEMPO DI ACCESSO fornisce il tem¬ 
po necessario per leggere o scrivere in 
una cella del dispositivo. 

Le memorie si possono classificare in 
memoria ad accesso casuale o ad ac¬ 
cesso sequenziale. 

Nelle prime, per accedere ad una cel¬ 
la, non è richiesto il passaggio attraver¬ 
so tutte le celle precedenti, cosa che av¬ 
viene nelle seconde. 

5) CAPACITÀ Per capacità di una me¬ 
moria, intendiamo la quantità A di bit 
che il dispositivo può ospitare. 

Capita di dover trasferire contempora¬ 
neamente informazioni che sono orga¬ 
nizzate in parole di n bit. 

Risulta quindi più importante, per una 
questione di praticità, il parametro C = p 
x n, dove p = A/n, che fornisce la ca¬ 


pacità C come numero p di parole com¬ 
poste da n bit memorizzabili nel dispo¬ 
sitivo. 

MEMORIE RAM 

(Random Access Memory - memoria ad 
accesso casuale) 

Le RAM forniscono un supporto per la 
lettura e la scrittura di informazioni, che 
sono codificate in una struttura che può 
essere paragonata ad una matrice di 
celle che sono gestite come gruppi di 
registri. 

È importante notare che leggere i dati 
non significa variarne il contenuto, ma 
ricopiarlo su quelle che vengono chia¬ 
mate linee dati. 

Al contrario, la scrittura cancella in ma¬ 
niera irreversibile tutti i dati contenuti. 
È immediato constatare che le RAM 
hanno un funzionamento del tutto simi¬ 
le a quello delle cassette magnetiche uti¬ 
lizzate per la riproduzione sonora. 
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a Informazioni 


L'unica differenza da queste consiste 
nel fatto che, in caso di mancanza di ali¬ 
mentazione elettrica, si ha una totale 
cancellazione dei dati contenuti. 

È a causa di questo che le RAM vengo¬ 
no impiegate in sistemi digitali solo co¬ 
me un supporto temporaneo dei dati. 

MEMORIE ROM 

(Read Only Memory - memoria a sola 
lettura) 

La ROM, durante la sua vita, non per¬ 
mette di scrivere i dati che una sola 
volta. 

In dispositivi di questo tipo, i dati scritti 
non possono essere più cancellati, nem¬ 
meno in caso di mancanza di alimenta¬ 
zione o tentando nuove operazioni di 
scrittura; è a causa di questo motivo che 
le ROM vengono anche chiamate me¬ 
morie non volatili. 

Vengono impiegate nei casi in cui la me¬ 
morizzazione di dati debba essere per¬ 
manente e per i quali non si preveda al¬ 
cun tipo di modificazione. 

Come le RAM, anche le ROM sono for¬ 
mate da celle elementari, organizzate in 
strutture di tipo matriciale. 

Le ROM sono solitamente “scritte” dal 
costruttore, che esegue il cosidetto "ma- 
sking”, che in pratica è un processo di 
mascheratura con il solo fine di creare 
nel chip le modifiche circuitali perma¬ 
nenti. 

È chiaro che, in un punto prefissato del 


chip, una modifica circuitale rappresen¬ 
ta uno stato 0 o 1. 

MEMORIE PROM 

(ROM programmabili) 

Le PROM vengono normalmente impie¬ 
gate in caso di produzioni limitate. Con 
questo tipo dì dispositivi è l’utente stes¬ 
so che provvede direttamente alla ma¬ 
scheratura delle proprie memorie a so¬ 
la lettura. 

Le PROM consentono un solo ciclo di 
scrittura che viene ottenuto tramite op¬ 
portuni impulsi elettrici inviati nel chip. 
È di fondamentale importanza sapere 
che le PROM, una volta mascherate, 
non possono essere più corrette: pertan¬ 
to un errore di programmazione com¬ 
promette l’intero chip. 

A causa di questo motivo, il program¬ 
ma che deve essere scritto, viene prima 
memorizzato o su un supporto magne¬ 
tico o su di una RAM e dopo, a verifica 
eseguita, trasferito sulla PROM tramite 
un opportuno programmatore automa¬ 
tico. 

MEMORIE EPROM 

(Erasable PROM - PROM cancellabili) 
Le EPROM sono nate da non molti an¬ 
ni e rappresentano un notevole miglio¬ 
ramento delle PROM, in quanto, in par¬ 
ticolari condizioni, sono completamen¬ 
te cancellabili. 

L'unico metodo per cancellare comple¬ 
tamente i dati memorizzati su una 


Logica e Computer HG 


La logica del computer si basa su due 
soli valori; VERO - FALSO; SI - NO cioè 
in base a valori binari. 

La base teorica che ha permesso di svi¬ 
luppare tale logica, affonda le sue radi¬ 
ce nel secolo scorso, infatti, fu il mate¬ 
matico inglese GEORGE BOOLE 
(1815/1864) che formulò la teoria del 
calcolo logico o algebra booleana. 

In questo tipo di calcolo le variabili con¬ 
siderate non sono più i numeri, ma le 
PROPORZIONI SEMPLICI, cioè enun¬ 
ciati o frasi che possono assumere solo 
due valori: VERO (associato alla cifra 1 ) 
e FALSO (associato alla cifra 0) 


Esempio di proposizioni semplici sono: 
2 è un numero pari (VERO = 1) 
Napoleone era italiano (FALSO = 0) 
Un insieme di più proposizioni sempli¬ 
ci, vere o false, possono essere collega¬ 
te tra di loro grazie a termini come: “e” 
”o” "non” chiamati OPERATORI LOGI¬ 
CI (AND OR NOI). 

Siamo in grado, così, di ottenere propo¬ 
sizioni composte, il cui valore può risul¬ 
tare vero o falso a secondo del tipo di 
operatore adottato e del valore delle sin¬ 
gole proposizioni. 

Per esempio la proposizione composta: 
Franco è bravo o bello 


EPROM è di esporre la stessa a radia¬ 
zioni ultraviolette. 

Questi dispositivi hanno due applicazio¬ 
ni veramente tipiche: 

- Costruzione di prototipi, in questo ca¬ 
so le EPROM servono come supporto 
per la messa a punto di programmi ope¬ 
rativi; nella versione definitiva, tali pro¬ 
grammi vengono memorizzati perma¬ 
nentemente su PROM o ROM. 

- Nei prodotti ove, periodicamente, il co¬ 
struttore debba apportare aggiorna¬ 
menti o miglioramenti. 

MEMORIE EAROM 

(Electrically Alterable ROM - ROM alte¬ 
rabili elettricamente) 

Le EAROM consentono all’utente di pro¬ 
grammarle con tecniche del tutto simili 
a quelle delle EPROM, ma offrono il van¬ 
taggio di poter essere cancellate anche 
solo parzialmente e per di più senza do¬ 
ver essere estratte dal circuito in cui so¬ 
no inserite. 

Trovano impiego in tutte quelle apparec¬ 
chiature ove sia necessaria una memo¬ 
rizzazione non volatile di dati e program¬ 
mi, ma con la possibilità di modificarne 
solo una parte. 

Un esempio tipico è quello di adottare 
le EAROM come supporto alle RAM del¬ 
le quali sia necessario salvare i dati in 
caso di mancanza di elettricità. 
Volutamente non parlerò delle MEMO¬ 
RIE DI MASSA, in quanto molto note a 
tutti i patiti di programmazione. 


LUONI 


è stata ottenuta collegando per mezzo 
dell’operatore logico "o” (OR) le propo¬ 
sizioni semplici 
Franco è bravo 
Franco è bello 

e risulta vera se l’una o l’altra delle due 
proposizioni risulta vera. Per poter co¬ 
noscere abbastanza facilmente il valo¬ 
re (vero o falso) di una proposizione 
composta, una volta che sono noti i va¬ 
lori delle proposizioni semplici ed il tipo 
di operatore che le collega, si può ricor¬ 
rere a visualizzazioni ottenute tramite i 
CIRCUITI LOGICI o PORTE LOGICHE. 
Un operatore logico possiamo immagi- 
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narlo come un sistema di interruttori, che 
comandano l’accensione di una lampa¬ 
dina; gli interruttori sono gli INGRESSI 
e rappresentano i valori binari di una sin¬ 
gola proposizione semplice (interrutto¬ 
re aperto = 0, interruttore chiuso = 1); 
la lampadina, invece, rappresenta il va¬ 
lore binario (RISULTATO) della propo¬ 
sizione composta (lampadina accesa = 
1 lampadina spenta = 0). 

I circuiti logici fondamentali sono quat¬ 
tro: 

AND OR XOR NOT 

CIRCUITO AND, compie una elabora¬ 
zione in cui il risultato ha valore 1 solo 
quando gli ingressi valgono 1. 
Possiamo pensare di realizzarlo con due 
interruttori collegati in serie ad una lam¬ 
padina. (Figura 1) 

Per esempio prendiamo in considerazio¬ 
ne le due proposizioni semplici 
A = “il sole è splendente” 

B = “il sole è caldo" 

La proposizione composta X = A AND 
B (il sole è splendente e caldo) sarà ve¬ 
ra solo se entrambe le proposizioni so¬ 
no vere. 

Avvalendoci dell’aiuto del circuito, pos¬ 
siamo compilare una TABELLA VERITÀ 
che visualizza tutte le possibili combina¬ 
zioni di valori: 

A B A AND B 
0 0 0 

0 1 0 

1 0 0 

1 1 1 

La funzione del circuito si può rappre¬ 
sentare con il simbolo 


enZ> x = A B 

e viene anche detta PRODOTTO LOGI¬ 
CO; analiticamente si esprime con il se¬ 
gno . per cui X = A . B 

CIRCUITO OR, compie una elaborazio¬ 
ne in cui il risultato ha valore 1 quando 
uno qualunque od entrambi gli ingressi 
valgono 1. 

Possiamo realizzarlo con 2 interruttori 
collegati in parallelo ed una lampadina. 
(Figura 2). 

Per esempio consideriamo ancora le 
proposizioni A e B precedentemente 
enunciate; la proposizione composta Y 


= A OR B (il sole è splendente o caldo) 
sarà vera se l'una o l’altra od entrambe 
le proposizioni sono vere. 

Osservando il funzionamenteo del cir¬ 
cuito siamo in grado di ricavare la tabel¬ 
la verità 

A B A OR B 
0 0 0 

0 1 1 

1 0 1 

1 1 1 

La funzione del circuito OR si può rap¬ 
presentare con il simbolo 


A l£>- Y=A+B 


e viene anche detta SOMMA LOGICA; 
analiticamente si esprime con + per cui 
Y = A + B 

CIRCUITO XOR, compie una elabora¬ 
zione in cui il risultato ha valore 1 quan¬ 
do uno solo dei due ingressi assume il 
valore 1. 

Possiamo realizzarlo con due interruttori 
a tre vie (deviatori) ed una lampadina. 
(Figura 3) 

Praticamente è riferito a quelle proposi¬ 


zioni composte in cui l’operatore logico 
OR ha valore esclusivo, cioè quando la 
verità di una proposizione esclude au¬ 
tomaticamente la verità dell'altra (il nu¬ 
mero K è pari o dispari). 

Osservando il funzionamento del circui¬ 
to, siamo in grado di ricavare la tabella 
verità 

A B A XOR B 
0 0 0 

0 1 1 

1 0 1 

1 1 0 

La funzione del circuito XOR si può rap¬ 
presentare con il simbolo 


B U[> 2 = A0B 


e viene anche detta SOMMA LOGICA 
ESCLUSIVA o DISGIUNTA, analiticamen¬ 
te si esprime con O per cui Z = A 0 B 

CIRCUITO NOT, compie una elabora¬ 
zione in cui il risultato ha valore quando 
l’ingresso ha valore 0 e viceversa. 
Possiamo pensare di realizzarlo con un 
circuito sempre chiuso, nel quale sono 
inserite una resistenza ed una lampadi¬ 
na in serie, con un interruttore in paral- 


FUNZIONE 

LOGICA 


FORMA 

ALGEBRICA 


SIMBOLO 


TABELLA 

VERITÀ 


AND 


X = A B 


OR 


Y = A + B 


XOR 


Z = A + B 


NOT 


W = -A 




A 

0 

0 

1 

1 

A 

0 

0 

1 

1 

A 

0 

0 

1 

1 

A 

0 

1 


B 

0 

1 

0 

1 

B 

0 

1 

0 

1 

B 

0 

1 

0 

1 


AANDB 

0 

0 

0 

1 

A OR B 
0 
1 
1 
1 

AXORB 

0 

1 

1 

1 

-A 

1 

0 
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lelo, così che la chiusura dell’interrutto¬ 
re causa lo spegnimento della lampadi¬ 
na; la resistenza ha, invece, il compito 
di limitare il passaggio di corrente, in mo¬ 
do da evitare il cortocircuito. 


R 



R 



Il significato logico di NOT è che se una 
proposizione A è vera, il contrario -A del¬ 
la stessa è falso e viceversa; pertanto la 
tabella verità risulta: 

A -A 

1 0 

0 1 

La funzione del circuito NOT si può rap¬ 
presentare col simbolo 




e viene anche detta NEGAZIONE LO¬ 
GICA o COMPLEMENTAZIONE. 


RETI LOGICHE 

Se colleghiamo l’uscita di un circuito lo¬ 
gico con l’ingresso di un altro possiamo 
ottenere delle strutture circuitali più com¬ 
plesse, dette RETI LOGICHE. 

Queste vengono rappresentate ricorren¬ 
do all’uso di particolari simboli relativi ai 
vari tipi di circuito. 


Per esemio 

L'espressione W = (X + Y) . K 
possiamo realizzarla con la seguente re¬ 
te: 



Ragionamento opposto viene fatto se, 
data una certa rete logica, dobbiamo ri¬ 
cavare la relativa espressione simbolica. 
Attraverso numerose reti logiche il cal¬ 
colatore è in grado di svolgere tutte le 
sue funzioni. 

Per esempio, la somma di due cifre bi¬ 
narie viene realizzata tramite una rete 
detta SOMMATORE o ADDIZZIONA- 
TORE. 

Questa rete è costituita da alcune porte 
logiche collegate in modo tale da rispet¬ 
tare le regole dell’addizzione binaria. 

Il sommatore opera l’addizzione e forni¬ 
sce in uscita il valore della somma ed il 
valore del riporto. 

Dalla combinazione di più sommatori 
siamo in grado di ottenere la somma di 
numeri binari di più cifre. 

A titolo di esempio, qui di seguito, è ri¬ 
portato lo schema di un sommatore ca¬ 
pace di operare l’addizzione tra due ci¬ 
fre binarie e di indicare, alle uscite S ed 
R, il valore della somma e dell’eventua¬ 
le riporto. 


In tabella sono Indicate le quattro pos¬ 
sibili alternative dei valori A e B di ingres¬ 
so e i corrispondenti valori della somma 
S e del riporto R. 


A 

B 

S 

R 

0 

0 

0 

0 

0 

1 

1 

0 

1 

0 

1 

0 

1 

1 

0 

1 
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Figura 1 


Figura 2 


Figura 3 


















































































































































Software 


A CURA DELLA REDAZIONE 


Slot machine 

PER LASER 500 



Questo programma simula 
una slot machine di Las Ve¬ 
gas. 

Le regole del gioco vengono 
mostrate sul video, come an¬ 
che le vincite o le perdite, la 


spinta del tiro va da 1 a 9. 
Sono permessi massimo 
quattro giocatori e si inizia il 
gioco con 10 coins per gio¬ 
catore. 


io rem tmmmmmmmmmm 

20 REM Ut SLOT MAGHINE Ut 

30 REM Ut - Ut 

40 REM Ut (C) LASER COMPUTER CLUB'*** 

50 rem mnmutnmmmmtnm 

60 REM 

1000 CLS:TEXT 40:PRINT:Gl=10:G2=10:G3=10:G4=10 
1010 PRINT " SLOT MAGHINE" 

1020 PRINT " ---" 

1030 CR$=CHR$(27)+CHR*(161) 

1040 POKE &.H85FA, 2 : FOR A=i TO 5 
1050 PRINT CRtlCHRt(47)CHRt(35+A).' “ 

1060 NEX'T : POKE 6H85FA.0 

1070 SI «=CHRI ( 137)+CHRt ( 138)+CHRÌ ( 139)+CHR$ ( 140) 
+CHR$ <1415 +CHR4 ( 42) 

1080 PRINT CRtlCHRt(48)CHRt{37);CHRt(128);"-"lCH 
Rt (129); M -'*;CHR$ (129) ; "-’lCHRtl130) 

1090 PRINT CRt'CHRti48)CHRt(38)1"1 1 : !" 

1100 PRINT CR$;CHRt(48 ìCHRt(39i;CHRt(134);"-“:CH 
RI(135) "-",CHRi(135);”-"lCHRt(136) 

1110 GOTO 1180 

1120 IF SP=0 OR SP>9 THEN RETURN 

1130 SF-SP47:F0R P=1 TO SP RAND0MI2E 

1140 IF PCSP/3 THEN X=INT(RND(1)*6)+1iPRINT CRI; 

CHRt;49)CHRti38); MIDI(SIt,X,1) 

1150 IF P<SP/2 THEN Y=INT4RND(1)*6) +1 :PRINT CRt; 
CHRt (51) CHRt ! 38 ) ; MIDt ! SI t, Y, 1 ) 


1160 2=INT(RND(1)*ó)+1 :PRINT CRt;CHRt(53)CHRt(38 
); MIDI (SI t,2,1) 

1370 NEXT:GOSUB 1340:RETURN 

1130 PRINT CRt;CHRt! 38)CHRt(42);"V I N C I T E 

M A S S I M E" : PRINT 

1190 PRINT " =1 coin: "■CHRt<138);=2 coi 

ni tt- =4 coin" 

12CC PRINT tt".; CHRt ( 138) 1 " =6 comi n .:CHRt( 138 
)CHRt(138) '=8 coin,' ";CHRt(138)CHRt(138)CHRt< 
139)1" =10coin" 

1210 PRINT " “CHRt(138)CHRt(138)CHRt(141)1" =12c 
oin; Ut =13coin 1 ";CHR*(138)CHRt(138)CHRt( 138); 
" =24coin" 

1220 PRINT " "CHRt(140)CHRt(140)CHRt(138)1° =36c 
oin: " ; CHRt (140! CHRt ( 140 )CHRt (139)1" =44coin,' "1 
CHRt(140)CHRt(140)CHRt(140)1" =90coin" 

1230 PRINT CRtlCHRt(33)CHRt(52)1"PLAYER 1 PLAYE 
R 2 PLAYER 3 PLAYER 4" 

I24C PRINT CRt;CHRt(33)CHRt(53)l" 10 10 

10 10 

1250 PRINT CRt'CHRt(37)CHRt(49)1“NUMERO DI GIOCA 

TORI MAX 4”il INPUT G 

1260 IF G>4 OR G<1 THEN 1250 

1270 PRINT CRt;CHRt(37)CHRt i 49) ; " 

n 

1280 FOR T=1 TO G 

1290 IF T=1 AND G1>0 THEN PRINT CRt 1 CHRt(40)CHRt 
<49)11 INPUT "PLAYER 1 SPINTA (1/9)"1SP:GOSUB 11 
20 

1300 IF T=2 AND G2>0 THEN PRINT CRIICHRt(40)CHRt 
(49)1,INPUT "PLAYER 2 SPINTA (1/9)";SP;GOSUB 11 
20 

1310 IF T=3 AND G3>0 THEN PRINT CRt;CHRt(40(CHRt 
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\ Software 


(49);; INPUT "PLAYER 3 SPINTA ( 1/9)";SP;GOSUB II 
20 

1320 ÌF T=4 AND G4>0 THEN PRINT CR* ; CHR* ( 40)CHR$ 
( 49) ; ; INPUT "PLAYER 4 SPINTA (1/9)“; SP:GOSUB 11 
20 

1330 NEXT: GOTO 1270 
1340 C0=0 

1350 IF X=6 AND Y<>6 AND 206 THEN C0=1 
1360 IF X=2 AND Y02 AND 202 THEN CQ=2 
1370 IF 35=6 AND Y=6 AND 206 THEN C0=4 
ISSO IF X=6 AND Y=6 AND 2=2 THEN C0=6 
1390 IF X=2 AND Y=2 AND 202 THEN C0=8 
1400 IF X=2 AND Y=2 AND 2=3 THEN C0=10 

1410 IF 35=2 AND Y=2 AND 2=5 THEN C0=12 

1420 IF X=6 AND Y=6 AND 2=6 THEN C0=18 

1430 IF X=2 AND Y=2 AND 2=2 THEN CQ=24 

1440 IF X=4 AND Y=4 AND 2=4 THEN C0=90 

1450 IF X=4 AND Y=4 AND Z=3 THEN '30=36 

1460 IF X=4 AND Y=4 AND 2=2 THEN CO=44 

1470 IF C0=0 THEN PRINT CR$ ; CHR* i 40 ) CHR$(49 ); "P 
EROI >1 co in GOTO 1580 
1480 PRINT CR* ' CHR$ < 40)CHRI ( 49 );" V I N C I >";C 
0;“ co in 

1 490 PRINT CRI .'CHR< ( 383CHR1 (51 ) ; " 

II 

1500 SOUND 0,8 


1510- IF T=1 THEN G1=G1+C0:PRINT CR»;CHR$(34)CHR$ 
(53) .‘Gl 

1520 IF T=2 THEN G2=G2+C0:PRINT CRI;CHR$(44)CHR$ 
(53);G2 

1530 IF T=3 THEN G3=G3+CO:PRINT CR$;CHR4(54)CHR* 
( 53 ); G3 

1540 IF T=4 THEN G4=G4+CO : PRINT CR*;CHR$(Ó4)CHR» 

(53);G4 

1550 SOUND 30,1 

1560 PRINT CRI;CHR$(40iCHR$(49);" 

II 

1570 RETURN 
1580 SOUND 0,8 

1590 IF T=1 THEN G1=G1-1 I PRINT CR$;CHRI(34)CHR$( 
53);G1 

1600 IF T=2 THEN G2=G2-11PRINT CR«;CHR$ ( 44)CHRf ( 
53);G2 

1610 IF T=3 THEN G3=G3-11PRINT CR* ; CHR$(54)CHR* ( 
53);G3 

1620 IF T=4 THEN G4=G4-11PRINT CR$;CHRIi64)CHR$( 
53);G4 

1630 SOUND 30,1 

1640 PRINT CR$ 'CHR$ ( 40)C-HR$ < 49 ) ; ' 

n 

1650 RETURN 


Battaglia navale 

PER LASER 500 


100 TEXT 40 :CLS: PRINT:PRINT:PRINT 

no print - Mmttttxttttmtmmttt' 

120 PRINT " tU BATTAGLIA NAVALE ttV 

130 PRINT " Ut GIOCATORE 6 COMPUTER ttV 

140 PRINT " Ut L A S E R 5 0 0 UV 

150 print " ttttttttutttttttttttttttur 

160 'listato di Potito Brunato 

170 FOR A=0 TO 4000:NEXT :CLS 

180 DIM MC(8,8 J ,MP( 8,8) :CRI=CHR$(27)+CHR$( 161) 

190 REM Ut DISEGNA LE DUE SCACCHIERE tt* 

200 FOR TX=1 TO 8’FOR TY=1 TO 8 

210 MC(TX,TY)=144:MP(TX,TY)=144:NEXT:NEXT 


220 PRINT CR$‘CHR$(37)CHR$( 33); --GIOCATORE-" 

230 PRINT CR$:CHRI ( 57 ) CHR$( 33) '--COMPUTER-" 

240 FOR TX=1 TO 16 STEP 2:FOR TY=1 TO 8 
250 PRINT CRI‘CHR$ ( 34+TX ) CHRi<3ò+TY ); CHRS ( 144); 
260 PRINT CRI‘CHRS ( 54+TX)CHR$ ( 36+TY ); CHRi < 144)' 
270 NEXT :PRINT:NEXT 
280 FOR TX=1 TO 8 

290 PRINT CRI•CHRI ( 32+TXI2)CHR$ (35); TX; 

300 PRINT CRI•CHR$ (32) CHR$ ( 36+TX ); TX 
310 PRINT CRI CHR$(52+TXt2)CHRI (35) "TX; 

320 PRINT CRS;CHRS (52 )CHRS ( 36+TX ); TX 
330 NEXT 
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340 REM ttt INSERIMENTO NAVI DEL COMPUTER ttt 
350 RANBOMIZE 
360 FOR NV=1 TO 10 

370 PSX-INT(RND( 1 )*8) + l : PSY = INT ( RND < 1 ) 48) *1 

380 IF MC ( PSX , PSY ) =140 THEN 370 

390 MC ( PSX,PSY ) = 140 : NEXT 

400 REM ttt INSERIMENTO NAVI DEL GIOCATORE ttt 

410 FOR NN=I TO 10 

420 PRINT CRi'CHRi (32) CHRi(48): : INPUT *» INSERIMENTO’ 

XI 

430 IF LEN(Xi)<2 OR LEN(Xi)>2 THEN 420 
440 Y=VAL<LEFT$<X< ,1 )): X=VAL(RIGHT«(Xi , 1 ) ) 

450 IF Y>8 OR X>8 OR X<1 OR Y<1 THEN 420 

460 IF MP (X, Y )= 140 THEN SOUND 10,1: GOTO 420 

470 MP ( X , Y ) = 1 4 0 : PRINT CRt CHR» ( 33+X*2 ) CHR» ( 36+Y ) ; CHR* ( M 

P(X,Y) ) 

480 PRINT CRi'CHRi ( 48)CHRi (48) ; ’ ":NEXT:SOUND 31,1 
490 REM UH MOSSA DEL COMPUTER tttt 
500 RANDOMIZE 

510 PRINT CR* CHRi(32)CHR*(48);* -MOSSA DEL COMP 

UTER 

520 SOUND 0,7: SOUND 10,1 

530 PSX= INT ( RND ( 1)i8)+l :PSY= INT ( RND( 1 ) 48) + l 

540 IF MP ( PSX , PSY ) = 137 OR MP(PSX , PSY ) =65 THEN 530 

550 IF MP ( PSX,PSY ) = 144 THEN 690 

560 IF MP ( PSX ,PSY ) = 140 THEN 760 

570 REM -- - 

580 REM ttt MOSSA DEL GIOCATORE ttt 
590 SOUND 10,2 

600 PRINT CRiCHRi ( 32 ICHRi ( 48 ) 1 " -MOSSA DEL GIOC 

ATORE- " 

610 PRINT CR» CHR$(50)CHR«(50) : : INPUT X) 

620 IF LEN(Xi)<2 OR LEN(Xi)>2 THEN 610 
630 Y=VAL < LEFTi ( Xi,1 )) : X=VAL ( RIGHT* ( X* , 1 ) ) 

640 IF X>8 OR Y>8 OR X<1 OR Y<1 THEN 610 

650 IF MC ( X ,Y)= 137 OR MC(X,Y)=65 THEN 610 

660 IF MC ( X , Y ) =1 44 THEN 840 

670 IF MC ( X ,Y ) = 1 4 0 THEN 920 

680 REM ttt COTROLLO DELLE MOSSE ttt 

690 MP( PSX,PSY )= 1 37 

700 PRINT CRi:CHRÌ(33+PSX*2)CHRi(36+PSY)'CHRi(MP(PSX,PS 
Y) ) 

710 SOUND 1,5 

720 PRINT CRi'CHRi ( 33+PSX42 ) CHRi ( 36+PSY> ' CHRi ( 32) 

730 SOUND 1,5 

740 PRINT CRi'CHRi (33 +PSX 1 2) CHR< ( 36+PSY) ; CHRt ( MP(PSX ,PS 
Y) ) 

750 GOTO 600 
760 MP ( PSX ,PSY ) = 65 

770 PRINT CRi ; CHRi ( 33+PSXt 2) CHRi ( 36+PSY) ; CHRi ( MP ( PSX ,PS 
Y) ) 

780 SOUND 10,5 


790 PRINT CRi : CHR* (33+PSX*2)CHR4 ( 36+PSY CCHRK 32) 

800 50UND 10,5 

810 PRINT CRi:CHR) ( 33+PSXÌ2 ) CHR) ( 36+PSY) ; CHR) ( MP(PSX ,PS 
Y)> 

820 MC%=MCX+ 1 : FOR S=1 TO 31 STEP 7: SOUND S, 1 :NEXT 
830 IF HCX=10 THEN 1020 ELSE 600 
840 MC(X,Y )= 1 37 

850 PRINT CRi:CHRi(50)CHRi(50>;* 

860 PRINT CRi:CHRi ( 53+XÌ2 ) CHRi < 36+Y ): CHRi ( MC ( X , Y )) 

870 SOUND 1,5 

880 PRINT CRi'CHRi ( 53+XÌ2 ) CHRi (36+Y); CHRi (32) 

890 SOUND 1,5 

900 PRINT CRi;CHRi ( 53+Xt2 ) CHRi (36+Y) ; CHRi < MC ( X . Y )) 

910 GOTO 500 
920 MC< X , Y)=65 

930 PRINT CRi;CHRi ( 50) CHRi ( 50) ; ' 

940 PRINT CRi'CHRi(53+XI2)CHRi( 36+Y) : CHRi(MC(X,Y> ) 

950 SOUND 10,5 

960 PRINT CRi ' CHRi ( 53+Xt2 ) CHRi ( 36+Y ); CHRi ( 32 ) 

970 SOUND 10,5 

980 PRINT CRi'CHRi(53+X42)CHRi(36+Y);CHRi(MCIX,Y) ) 

990 MPX=MPX+1 : FOR S=1 TO 31 STEP 7:SOUND S , 1 : NEXT 

1000 IF MPX=1 0 THEN 1050 ELSE 500 

1010 REM ttt ASSEGNAZIONE DELLA VITTORIA ttt 

1020 PRINT CRi'CHRi<32)CHRi(48)'" - HO VINTO 

IO 1 

1030 GOTO 1070 

1040 PRINT CR*'CHRi ( 53+XC2)CHRi ( 36+Y ) :CHRi(NC(X,Y) ) 

1050 PRINT CRi,'CHR* (32) CHRi(48);’ - HAI VINTO 

TU ' 

1060 GOTO 1070 

1070 FOR S=10 TO 20 :SOUND 30-S.l: SOUND S,1 : NEXT 

1080 PRINT CRi:CHRi (32) CHRi(49);' GIOCHI ANCORA 

(S/N)-* 

1090 INPUT Si :IF LEFTi(Si, 1) = ’S‘ THEN RUN 
1100 CLS:PRINT "END GAME':END 









ì --t Software 


DI MARTINO AGOSTINO 

Dogbuster per laser 500 

In questo gioco vi vedrete nei dagi. Avrete a disposizione 

460 IF NOT POINT(X-A,Y)=F THEN X=X-A: GOTO 290 

panni di un accalappiacani, solo una rete per condurre il 
voi dovrete svolgere il vostro cane verso la gabbia. Il gio- 

470 IF NOT POINT'(X,Y-B)=F THEN Y=Y-B : GOTO 290 

480 R=1 

490 GOTO 560 

lavoro catturando i cani ran- co richiede il joystick! 


0 RANDONIZE:G=36:X=601 Y=26:GR OlGOSUB 6000 


500 IF G=3 THEN IF M<2 THEN M=M+1 ICOLOR 2 : SET(W,N) .'GOTO 

1 W2t="MARTIN0 6 C.":W2=5623:TEXT 40 


540 

10 BY=INT(RND*B0)+10:BX=INT(RND»140)+10 


510 IF G=5 THEN IF N<D THEN N=N+1 ; COLOR 2 : SET(PI,N ) : GOTO 

40 COLOR 15,0,1 : GOSUB 3000 


540 

30 GR : GOSUB 2000 


520 IF G=1 THEN IF N>1 THEN N=N-1: COLOR 2 : SET(«,N >: GOTO 

100 F=2:R=0:V=0 


540 

101 GOSUB 110 


530 IF G=7 THEN IF M>1 THEN N=N-1: COLOR 2:SET(M,N) 

102 GOTO 220 


540 IF JOY(1)=1 OR JOY(2) = 1 THEN COLOR 0 : SET(M ,N) 

110 COLOR 4 : MOVE(0,0):0RAV<159,0):DRfl¥(159,95):DRAV(0,95 


550 GOTO 330 

); DRAW(0,0) 


560 FOR T=31 TO 1 STEP -2:SOUND T,1 :NEXT 

190 GOSUB 5000 


561 COLOR 15,0,0:PRINT "Hai,hai,hai, ti sei fatto morder 

210 RETURN 


e'! 

220 X=INT(RNDt150) +1 


562 PRINT "Ni dispiace per te, ma non abbiamo 

230 Y=INT(RND*90i+l 


563 PRINT “M siero anti-rabbia per curarti!!! 

240 fl=l:B=l:Z=159:D=94 


564 PRINT "quindi muori.... 

250 M=INT(RND*150)+1 


565 PRINT:PRINT;PRINT"IL TUO PUNTEGGIO E‘; : COLOR 0,3:PR 

260 N= INT ( RNDS-90 )+1 


INT 10000-V:COLOR 15,0::PRINT"NON TI ILLUDERE PERCHE'TI 

270 SET(M,N) 


SEI FATTO MISEREVOLMENTE SBRANARE DA QUELLA CHE DO 

280 P=X:Q=Y 


VEVA ESSERE LA TUA VITTIMA 1VPRINT:PRINT”ADDIO...PREMI 

290 !F X)BX+8 OR Y>BY+5 OR X<BX OR Y<BY THEN J=0 ELSE J= 


UN TASTO":Ji=INPUT*(1) : GOTO 40 

J+l:IF J=25 THEN 600 ELSE !F J/1=1NT(J/l) THEN SOUND 31, 


600 FOR T=1 TO 31 STEP 2:SOUND T,1 :NEXT 

1 


610 COLOR 15,0,0:PRINT "COMPLIMENTI 1 ! !" 

300 G= JOY(0) 


620 PRINT "Finalmente ci sei riuscito!!! 

301 IF INKEY $ = ”1" THEN FOR 1 = 1 TO 94 : COLOR 0:MOVE(1,I):D 


700 PRINT ;PRINT "Punteggio totalizzato --> ”‘: COLOR 15, 

RAW(153,I): COLOR 4;H0VE<1,1+1):DRA¥(158,1+1):NEXT:GOSUB 


4 

i 

2000 


710 PRINT 10000-V : COLOR 15,0 

320 IF GOO THEN 500 


720 V=1Q000-V 

330 V=V+1 


721 HJ$=INPUT$(1) 

340 SET(X,Y) 


730 IF V<W2 THEN GOTO 40 

350 IF POINT (X+A, Y+B) 0 0 THEN 360 ELSE X=X+A : Y=Y+B : CO 


740 PRINT : PRINT"Hai fatto il Punteggio migliore, 

LOR 0 ; SET ( F , ai : COLOR 2:SET(X,Y) ;GOTO 280 


750 PRINT : PRINT "Qual V il tuo nome, campione ?":PRINT : 

360 A1=A:A2=B 


PRINT:PRINT 

370 COLOR 0 : SET(X , Y) 


760 LINE INPUT ¥24:W2=V:V=Q 

380 IF POINT(X,Y+B) THEN B=-B 


770 GOTO 40 

390 IF POINT(X+A , Y) > 0 THEN A=-A 


1190 END 

400 IF NOT POINT < X+A , Y+B )> 0 THEN 290 


2000 FOR 1=1 TO 12 

410 A=-A1 : B=-A2 


2005 AX=INT!RND*14Q)+5 

420 IF NOT POINKX+A , Y+B)>0 THEN 290 


2010 AY=INT(RND*40)+15 

430 A=A1 : B=A2 


2020 COLOR RNDtl5:FOR T=1 TO 5 : MOVE(AX , AY+T ): DRAW(AX+7 , A 

440 IF NOT POINT(X+A,Y)=F THEN X=X+A:GOTO 290 


Y+T) : NEXT 

450 IF NOT PC) INT(X , Y+B ) =F THEN Y=Y+B:GOT0 290 


2030 COLOR RND 1 1 5 : MOVE ( AX', AY ) : DRAW ( AX+7 , AY) : DRAW ( AX+7 , AY 
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+5i : DRAW(AX,AY+5) :DRAW(AX,AY) 

2034 NEXT:COLOR 3 

2035 PIOVE ( BX , BY ) : DRAW ( BX+8, BY ) : MOVE ( BX, BY+5 ) : DRAW ( BX+8, B 
Y+5) 

2040 RETURN 
3000 COLOR 15,0,0 

3010 CLS 

3011 COLOR 15,4 

3012 PRINT " 

3013 PRINT ' «< DOGBUSTER »> 

3014 PRINT ' 

3015 COLOR 15,0; PRINT 

3020 PRINT “ In questo gioco vi vedrete nei panni 

3021 PRINT “dt un accalappiacani, e, ovviamente do- 

3022 PRINT "vrete svolgere il vostro lavoro cattu- 

3023 PRINT "rando i cani randagi che vagano per la 

3024 PRINT "radura. 

3025 PRINT " Avete a vostra disposizione una rete 

3026 PRINT "con la quale dovrete racchiudere la vo- 

3027 PRINT "stra vittima in modo da farla deviare 
3023 PRINT "verso la gabbia, che precedentemente 

3029 PRINT "avete piazzato in mezzo alla radura. 

3030 PRINT " State attenti a non farVi mordere 

3031 PRINT "da quelle bestie, perche’, oltre ad es- 

3032 PRINT "sere randagie, sono anche idrofobe.... 

3040 PRINT " Quando avrete intrappolato la bestia 

3041 PRINT "ricordatevi di chiudere la gabbia con 

3042 PRINT "della r?te, in modo da assicurare ogni 

3043 PRINT "tentativo di fuga. PRINT INPUT t(l):GLS 

3044 PRINT " Per cancellare la rete, premere un 

3045 PRINT "tasto di FIRE piu' la direzione deside- 

3046 PRINT "rata. Premere 'L' per cancellare tutto 

3047 PRINT "il reticolato. 

3048 PRINT 

3049 PRINT "N.B. bisogna attendere che il cane si 

3050 PRINT "calmi quando e' chiuso in gabbia. 

3051 PRINT 

3055 CCLOR 15,1 :PRINT "Record d i : "W2« 1 B con"W2“punti":CO 
LOR 15,2 

3056 PRINT :PRINT "(C) Copyright 1986 Laser Computer Clu 
b " 

3057 PRINT "Scritto da Martino Agostino !, Porc 

ino Antonino 

3058 PRINT "Si ringraziano i soci L.C.C. per la col -1abo 
razione. 

3059 PRINT "All right reserved 

3060 PRINT INPUTt(l); COLOR 15,0,1:CLS:RETURN 
5000 ' 

5020 MOVE ( BX,BY ): COLOR 3 : DRAW ( BX+8 , BY) : MOVE i BX , BY+5 ): ORA 

W(BX+8,BY+5):RETURN 

6000 GOSUB 7000: FOR T=1 TO C 

6010 READ Al 

6020 FOR N=1 TO LEN(AJ) 


6040 J=VAL(MIDtfA$,N,l)) 
6050 COLOR J: SET(N+X,T+Y) 
6060 NEXT:NEXT 

6081 DATA" 4444444 

6082 DATA" 44 4444 

6083 DATA” 44 44 44 

6084 DATA“44 44 

6085 DATA”44 44 

6086 DATA”44 44 

6087 DATA” 44 44 44 

6088 DATA" 444 44 

6089 DATA" 4444444 

6090 DATA" 


78 
78 

888888888 
44 18888728888884 

44 888888887788844 

44 8887777777884474 

>4 4777777774474488 


4 


84474488888 

47448888888 


1 : DATA" 


6091 DATA "111 22 3333 444 5 55 6666 7777 9999 111 

22 

6092 DATA"1 11 2 22 3 4 44 5 55 6 77 99 1 11 

22 

6093 DATA"1 11 2 22 3 33 444 5 55 6666 77 9999 111 
22 

6094 DATA-1 11 2 22 3 3 4 44 5 55 66 77 99 1 11 

6095 DATA"1111 222 3333 4444 5555 6666 77 9999 ! 11 


22”:DATA” ”; DATA” 
422442" 

6096 DATA" 1111 

6097 DATA” 111111 

6098 DATA” 6666 

6099 DATA” 6666 

6100 DATA" 111611111 
6110 DATA" 11111171111 


22442244224 

4421111111111111244 
119 244111333733733311422 

19 19 44211333333733733311244 

19 22411333333373373311422 

19 44211311111111111311244 

19 22411111111111111111422 

21111114444444441111118 
1777114 4444 4117771 
1777114 4444 4117771 
1111114 4444 4111111 


19 


11 

11 


1111114 4444 4111111 

11 

11 

33 

771 mi il il ii il in nini 17 

11 

11 

7 7 

7777777777777777777777777 

31 

13 

222222 

888 888 

13 

31 

223322 

888 2 2 2 888 

131 

1313 

223222 

888 222 888 


6111 DATA"111 11111 11 

6112 DATA”111 11171 11 

6113 DATA" 11661111. 16 19 

6114 DATA" 611111 666 

6115 DATA” 

6116 DATA” 

7 

6117 DATA" 

6118 DATA” 

6119 DATA” 

6120 DATA” 

6125 DATA" 222222222222222222222222222222222222222222222 
2 

6130 DATA“2222222222222222222222222222222222222222222222 
22 

6500 RESTORE 6510 

6510 DATA 16,25,23,16,25,23-,16,16,16,25,23,18,18,0 
6520 READ A:IF A=0 THEN 6500 
6525 IF INKEY$<>"“ THEN RETURN 
6530 SOUND A,2 1 GOTO 6520 

7000 FOR T=0 TO 95 :COLOR < RND*14 ) +1 ; MOVE(0,T) : DRAW <159, 
T) ; NEXT T 

7010 FOR T=25 TO 65:COLOR 0 : MOVE(55,T):DRAW ( 110,T):NEXT ; 
RETURN 
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t --r Software 

DI E. BERTONI 


Pelota PER LASER 110-210-310 


La collaborazione porta buo¬ 
ni frutti per tutte le persone 
che apprezzano e seguono 
con entusiasmo la rivista. 

I risultati si vedono quando i 


lettori ci inviano i loro lavori, 
realizzati con semplicità. Più 
i programmi sono semplici, 
più aiutano gli altri lettori a 
scoprire i segreti della pro¬ 


grammazione, copiando e 
migliorando il lavoro esegui¬ 
to da altri. 

È il caso di questo gioco, di¬ 
vertente e non complicato da 


un listato chilometrico. Com¬ 
plimenti all’autore, e grazie 
da parte di tutti i lettori! 


10 POKE30774,1 
25 GOSUB3000 

30 REM*RASSEGNAZIONE VARIABILI** 

70 CLEAR10000 
73 MODE(1) 

75 P=5 
80 H=15 

83 IFP< = OTHENSOUND31,1 ; 31,1 ; 29,1 IGOT07000 
85 U = 0 

90 J = RND(30) :IF J <1THEN90 
95 0=1 

110 REM**DISEGNO SCHERMO** 

120 F0RI = 1T032:POKE28671+I,105 :POKE30687+1,B5:NEXT 

130 FORI = 1TO2032STEP32:POKE28671 +1,245 :POKE28702+I,95:NEXT 

135 REM**MOVIMENTI RACCHETTA** 

140 FOR1 = 1T04:A$ = INKEY<:NEXT 
150 IFA$="A"THENH=H-1 :H 2 = — 1 
160 IFA$ = " .: "THENH=H+1 : H2 = +1 
163 IFH <OORH> 29THENH=H-H2 
165 POKE30625+H,170 

170 IFA$<>""THENPOKE30625+H-H2,0 

171 REM**MOVIMENTI** 

172 REM** PALLINA ** 

180 IFO=1THENC=105 :GOSUB1100 

183 G = PEEK <J + 28800 + X) : IFGO0THENC=G:GOSUB1100 
185 GG=PEEK(J + 28800 + 32) : IFGG<>0THENC=GG:GOSUB1100 
200 J=J+X 

220 POKE28800+J,255 

225 POKE28800+ J-X, 0 

230 IFU=1THENPOKE28BOO+ J,0:G0T083 

1000 GOTO140 

1010 REM**DIREZIONE PALLINA** 

1100 IFC=B5THENP=P-1 : SOUND1,3 :U=1 
1111 IFC=95ANDX=-31THENX=-33 

1113 IFG=95ANDX=33THENX=31 

1114 IFC=245ANDX=-33THENX=-31 


12 











1115 

2000 

2010 

2011 

2012 

2220 

2221 

2222 

2223 

3000 

3001 
3010 
3060 
3070 
3080 
3090 
4000 
4010 
4020 
4023 
4025 
4030 
4040 
4050 
4060 
4070 
4080 
4090 
5000 
5005 
5010 
5020 
5030 
5040 
5050 
5060 
5070 
5080 
5090 
6000 
6020 
6030 
6060 
6070 
7000 
7010 
7020 
7030 
7040 
7050 
7060 
7070 
7080 
8000 


IFG=245ANDX=31THENX=33 

IFG=Ì70THEN Y=RND(2 ) : IFY=1THENX = -31 :P=P+.5 : ELSEX=-33 : P=P+.5 
IFC=170THENR=RND(30719) : IFR<28672THEN2010 
IFG=170THENS=PEEK ( R) : IFS=1050RS=850RS=2540RS=95THEN2010 
IFC=170THENPOKER,105:PU=PU+1 
IFC=105THEN Y = RND ( 2 ): IFY=1THENX=31ELSEX=33 
0 = 0 

SOUNDRND ( 30 ) ,1 
RETURN 

REM**PRESENTAZIONE ** 

REM** PROGRAMMA ** 

CLS : PRI NT 

PRINT@361 , "PREMI UN TASTO" 

Ai = INKEY$ : IFINKEYi <> ""THEN4 000 
GOTO3060 

REM**SPIEGAZIONE MOV IMENTI** 

CLS : PRINT" * * * * * * * *: * * * * * * * * * * * * * * * * * * * * * * " 

PRINT" ********* MOVIMENTI **********" 

PRINT" * * * * ** * * * * * * ** * * * * * * * * * * * * ** * *" 

PRINT" * *" 

PRINT" * *" 

PRINT" * <= CAI [+] => *" 

FORI = 1T04 : PRINT" * *" : NEXT 

PRINT" ***** * ** * * * * * * * * * * * * * * * * * * * * * *" 

FORI=1T03 : PRINT" * *" : NEXT 

PRINT" ******* ** * * * * * * ** * * * * * * * ** * * * *" 

PRINT@392," PREMI UN TASTO 
AÌ=INKEYi : IFI NKEY t <>■ n " THEN50 1 0 
GOT04080 

REM**INI ZIO PROGRAMMA** 

CLSIPRINT 

PRINT" * PELOTA*" 

PRINT:PRINT" CERCA DI NON FAR CADERE 



LA" 

PALLA NELLA ZONA GIALLA" 

OGNI VOLTA CHE SUCCEDERÀ'" 

PERDERAI UNA RACCHETTA" 

MA OGNI VOLTA CHE LA COLPIRAI" 

NE RECUPERERAI MEZZA E FARAI 
PRINT"B U 0 N DIVERTIMENTO" 
<C> PER COMINCIARE" 


PRINT" 

PRINT" 

PRINT" 

PRINT" 

PRINT" NE RECUPERERAI MEZZA E FARAI UN PUNTO" 

PRINT 

Di = " PREMERE 
PRINT@41 8 , Di 

A $ = INKEY $ : IFINKEY $ = ” C "THENRETURN 
GOT06000 

REM**FI NE PROGRAMMA**" 

CLS : PRINT:PRINT" MI DISPIACE,MA NON PUOI " 

PRINT:PRINT" CONTINUARE,HAI TOTALIZZATO" 

PUNTI"PU 

MA SEI VUOI FARE UN'ALTRA" 

PARTITA..." 

(S/N)" 

FOR1 = 1T04: Ai = INKEY i : NEXT 

IFAI = "S"THENPRINT" OK. RIPROVA" : FORI = 1T02000:NEXT:G0T073 
IFA $ = "N"THENPRI NT" SARA'PER UN'ALTRA VOLTA":END 
GOT07050 


PRINT:PRINT" 
PRINT:PRINT" 
PRINT:PRINT" 
PRINT@352," 
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i --F Software 


DI C. BELVISO 

Bersaglio per laser 110 - 210-310 


Anche in questo caso trovia¬ 
mo risolti dall’autore alcuni 
problemi che riguardano la 
realizzazione di VIDEOGA- 
MES. Il gioco consiste nel 
centrare i bersagli, e lo svol¬ 
gimento è facilmente com¬ 
prensibile. Buona anche la 
TECNICA DI PROGRAMMA¬ 
ZIONE con la costruzione di 
un programma costituito da 
SUBROUTINES. Questo per¬ 
metterà a tutti di modificare e 
migliorare a proprio piacere 
lo sviluppo del programma, 
unendo l'utile al dilettevole. 
Buon divertimento! 


0 GOSUB1450:PRINT:PRINT:PRINT" VUOI LE ISTRUZIONI <S,N)":PRINT 

1 P$=INKEY$:P$=INKEYt : IFP$="S"THEN1650 

2 IFP$="N"THEN3ELSE1 

3 DATA129,128,130,136,132,143,0 

4 READC1,C2,C3,C4,C5,C6,PU 

5 DATA29153,29181,28768, 28738,29120 ,29118,29119,29120,29054.400 

6 READL1 , L2,L3,L4,L5,L6,L7,L8,L9 , TE 

7 '*********INIZIO**** ******* 

8 CLS : PRINT : PRINT " GRADO DI DIFFICOLTA' ( 1, 2 , 3 ,4 ) " : PRINT : PRINT 

9 PRINT" SCEGLI IL GRADO" : PRINT : PRINT : INPUT" QUALE ",:R 

10 IFR < 1ORR> 4 THENCLS:G0T07 

11 W1=.2+.2*(R-1 ): W2=1-.05*R 

12 CLS: PRINT" PUNTI TEMPO" 

13 FORI=31T010STEP-2 : SOUND1,1 : NEXT : B=L4 : PRINT@1 0 ,PU 

14 REM* * * * * *PRINCIPALE* * * * * * * * * 

15 PRINT@24 ? TE : GOSUB200 : GOSUB400 : GOSUB500 : GOSUB400 : GOSUB500 
20 B=B+1:TE=TE-1 

25 IFTE<0THEN800 

30 IFB=L5THENB=L4 : POKEL6, Cò: POKEL7, Cb : POKEL8,06 
35 IFRND (0)> W1ANDBCL9THENP0KEB+32,42 
37 IFRND( 0) >W2ANDB<L9THENPOKEB+32 , 159 

40 PRINT524,TE :GOSUB200: GOSUB400 : GOSUB500 : GOSUB400 : GOSUB500 
50 B=B+1 : TE=TE-1 
55 IFTEC0THEN800 

60 IFB=L5THENB=L4 : POKEL6 ,C6 :P0KEL7 ; C6: POKEL8, C6 
7 0 I FRND (0)> W1ANDB CL9THENPOKEB+ 32 ,4 2 
80 IFRND (0) >¥2ANDB<L9THENP0KEB+32,159 
100 GOTO 15 

200 REM****FORMA BERSAGLIO***** 

210 POKEB-2,C6 : POKEB-1,C1 : POKEB, C2: POKEB+1 ,C3: RETURN 
220 REM***BERSAGLIO COLPITO**** 

230 CI=C6:C2=C1:C3=C 1 
240 SOUND1 0 ,1 : GOSUB200 
250 B=L4+INT ( RND( 0) *382 ) 

260 C6= 143 : CI = 129 :C2= 1 28 :C3= 130 
270 RETURN 

400 REM*****FORMA CANNONE****** 

41 0 POKEA-1, C6I POKEA,C4 : POKEA+1, C5: POKEA+2 ,C6 
420 RETURN 

500 REM**SPOSTAMENTO CANNONE*** 

510 P$=INKEY$:P$=INKEY$ 

520 IFP$ = " M " THENA=A-1 
530 IFP$=" , "THENA=A+1 
535 IFPi= "Z" THENGOSUB600 
540 IFA<L1THENA=L1 
550 IFA>L2THENA=L2 
560 RETURN 

600 REM* * * * ** * SPARO* * * * * * * * * * * 

605 X=A-32 
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61 0 X=X-32:POKEX,94 :POKEX+32,C6 
612 IFPEEK ( X-32 )<> 42THEN620 

615 POKEX ? C6:POKEX-32,C6 : SOUND31,1:PU=PU+1 : PRINT®10,PU : RETURN 
620 IFX=BTHENTE=TE+3+ ( R-1 )*6 : PU=PU+3 : PRINT01 0, PU : GOTO220 
625 IFPEEK(X-32) = 159THENPOKE26666,24 :GOTOBOO 
630 IFX<L3THENPOKEX, C6: TE=TE- 10*R: PU=PU-3 : PRINT@10 , PU : RETURN 
640 GOTO610 

800 REM **** * *GAME-OVER * * * * * * *** 

805 PRINT<?24,0 

810 FORI=0TO3:SOUND20+1 ,1 + 1 :NEXT 
820 FORI = 0TO3: SOUND31,1 : NEXT 
830 FORI=0T03 : SQUND20+1,1 + 1 :NEXT 
840 CLS 

845 PRINT : PRINT" GRADO DI DIFFICOLTÀ'";* 

850 PRINT : PRI NTPRINT 

860 PRINTTAB(10)"PUNTI = ";PU 

370 PRINT:PRINT:PRINT 

880 PRINTTAB(10)"GAME OVER" 

890 PRINT:PRINT:PRINT:PRINT 

895 FORI=0TQ20 : SOUNDRNDI31),1 : NEXT 

900 CLS: PRINT:PRINT:PRINT:PRINT 

910 IFPU<50/RTHENPRINTTAB(6)"HAI FATTO SCHIFO M!" 

920 IFPU>49/RANDPU < 100/RTHENPRINTTAB ( 6 ) "SEI SCARSO !!!!" 

930 IFPU>99/RANDPU<150/RTHENPRINTTAB(5)"SEI STATO BRAVINO !" 
940 IFPU>149/RANDPU<200/RTHENPRINTTAB( 6) "BRAVO !" 

945 IFPU>199/RANDPU<270/RTHENPRINTTAB (6) "BRAVISSIMO !" 

950 IFPU>269/RTHENPRINTTAB(6)"SEI UN CAMPIONE !" 

960 PRINT: PRINT: PRINT: PRINT: PRINT'.PRINT: PRINT 
970 PRINT" PREMERE C PER CONTINUARE" 

930 P$ = INKEY i :P$ = INKEY$ 

990 IFP$="C"THENRUN3ELSE980 
1450 REM:! ** * * ISTRUZIONI * * * * 111 * 

1460 CLS:PRINT:PRINTISOUNDIO,5 


1590 

1600 

1610 

1650 

1660 

1665 

1670 

1700 

1710 

1720 

1723 


PRINT" IDEATORE: C.BELVISO": SOUND1,9 
FORI = 1T030:SOUNDRNDI10)+21,1 :NEXT 
CLS: RETURN 
CLS:PRINT:PRINT 

PRINT" TASTO 2 PER SPARARE":PRINT 
PRINT" TASTO M E , PER SPOSTARSI":PRINT 
PRINT" LIVELLO 1234" 

PRINT .'PRINT: PRINT; PRINT: PRINT" PREMERE C PER CONTINUARE" 


P$ = INKEY t:P$ = INKEY t:IFP$ 
CLS:PRINT" LIVELLO 1 
PRINTTAB(13)"PUNTI" 


'CTHEN1710 


4":PRINT 


1725 

PRINT" 

******** 

+ 1 

+ 1 

+ 1 

+ 1" 

1730 

PRINT" 

AZS*** 

+ 3 

+ 3 

+ 3 

+ 3" 

1740 

PRINT" 

A VUOTO* 

-3 

-3 

-3 

-3":PRINT 

1750 

PRINTTAB(13)"TEMPO" 




1760 

PRINT" 

******** 

- 

- 

- 

_ m 

1770 

PRINT" 

AZS*** 

+ 3 

+ 9 

+ 15 

+ 21" 

1780 

PRINT" 

A VUOTO* 

-10 

-20 

-30 

-40" 

1785 

PRINT" 

J******* 


GAME- 

-OVER" 




1790 PRINT .'PRINT:PRINT" 
1800 P$=INKEY$:P$=INKEY$ 


PREMERE C PER CONTINUARE" 
IFP$="C"THEN3ELSE1800 
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i --F Software 


Elettra (PARTE SECONDA) 
PER LASER 110-210-310 


9 74 PRINT"DAMMI I VALORI DI P ? TAN(FP) ,TAN(FD) ,V" : INPUTP,TP,TD,V 
975 C= ( P* < TP-TD ) / (314*( V* V ) ) / ( 1 0 A ~ 6 ) ) : GOTO 982 

980 FRI NT" IL VAL.DEI CONDENS . A STELLA SARA ' C= "CMICRO FARAD" : END 

981 PRINT"IL VAL.DEI GONDENS.A TRI AMG.SARA'C="C"MIGRÒ FARAD" : END 

982 PRINT"IL VALORE DEL CONDENSATORE SARA 7 C="C"MIGRÒ FARAD’ :END 
985 GLS; FRINT"PER LA SEZIONE IN CC FREMI C" 

936 PRINT"PER LA SEZIONE IN CAM PREMI M" 

987 PRINT"PER LA SEZIONE IN GAT PREMI T" : INPUT ,S$ 

990 IF S$="C" GOTO 995 

991 IF S*="M" GOTO 1003 

992 IF S*="T" GOTO 1013 

995 GLS:PRINT"SE HAI RO.L,P,V,PP.PREMI..R" 

996 FRINT"SE HAI RO,LP,V, P% .PREMI..Q" INPUT R$ 

997 IF R$ = "R" GOTO 999 

998 IF R*="Q" GOTO 1001 

999 GLS:PRINT"DAMMI I VALORI DI RO,L,P,V,PP":GOSUB1048 

1000 S=2*RO*(L*(P*P ))/ (PP*(V*V) ) : GOTO 1023 

1001 GLS:PRINT"DAMMI I VALORI DI RO,L,P,V, P% ":GOSUB1053 

1002 S=200*RO*(L*P)/(P%*(V*V) ) ; GOTO 1023 

1003 CLS:PRINT"SE HAI RO,L,P,V,PP,GOS(F)PREMI.A" 

1004 PRI NT "SE HAI RO , L, P , V ? P %, GOS ( F ) PREM I . M" : INPUT M$ 

1005 IF M*="A" GOTO 1007 

1006 IF M$="M" GOTO 1010 

1007 CLS:PRINT"DAMMI I VALORI DI RO,L,P,V,PP,COS<F)":GOSUB1024 

1009 S=2*RO*<L* ( P*P))/(PP*((V*V5 *(G*C))) : GOTO 1023 

1010 GLS:PRINT"DAMMI I VALORI DI RO,L,P„V,p%,GOS(F>":GOSUB1030 

1012 S=200*RO* ( L*F*) / ( P%* ( ( V*V)*(C*C) ) ) : GOTO 1023 

1013 CLS:PRINT"SE HAI RO,L,P r V,PP 7 G0S(F)PREMI.A" 

1014 PRINT"SE HAI RG,L,P,V ? P% ,COS<F)PREMI.T" : INPUT T$ 

1015 IF T$="A" GOTO 1017 

1016 IF T$ = "T" GOTO 1020 

1017 GLS: FRI NT "DAMMI I VALORI DI RO , L., P , V , PP COS ( F >": GOSUB 1 036 

1019 S=RO*(L*(P*P})/<PP*( ( V*V)*(G* G) )) : GOTO 1023 

1020 CLS:PRINT"DAMMI I VALORI DI RO ? L,P,V,P%,GOS(F)":GOSUB1042 

1022 S=100*RO*(L*P)/(P%*( (V*V)*(C*C >)) 

1023 PRINT$359 , "LA SEZIONE SARA 7 " : PRINTG’425 , " S= " S"MM2 ,r I END 

1024 INPUT"RO=RESISTIVITA'IN OHM*MM2/KM";RO 
i 025 INPUT ,! L=-LUNGHEZZA IN KM" ; L 
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1026 INPUT"P=POTENZA IN WATT".:P 

1027 INPUT"V=TENSIONE IN VOLT" ;V 

10 : 2S 1NPUT"PP=PERD . DI POTENZA IN WATT” ; PF 

1029 INPUT"COS(F)=SFASAMENTO";C: RETURN 

1030 INPUT"RO=RESISTIVITA'IN QM*MM2/KM"'RO 

1031 INPUT"L=L r JNGHEZZA IN KM" IL 

1032 INPUT”P=POTENZA IN WATT",*P 

1033 INPUT"V=TENSIONE IN VOLT”;V 

1034 INPUT"P%=PERD,PERO.DI POTENZA";P% 

1035 l NPUT”CCS ( F ) = SFASAMENTO” C : RETURN 

1036 INPUT"RO=RESI STI VITA ' IN OM t MM2 /KM " RO 

1037 INPUT"L = LUNGHEZZA IN KM"* L 

1038 INPUT”P=POTENZA IN WATT"JP 

1039 INPUT”V=TENSIONE IN VOLT"'V 
104 0 INPUT”PF = PERD . DI POTENZA” PP 

1041 INPUT 11 COS ( F ) «SFASAMENTO" C RETURN 

1042 I NPUT ”RO=RES ISTI VITA ' IN OM t MM 2 / KM " .* RO 

1043 I NPUT " L=LUNGHEZZA IN KM” .:L 

1044 INPUT"P=POTENZA IN WATT”;P 

1045 INPUT"V«TENSIONE IN VOLT"; V 

1046 INPUT"P%=PERD.PERO.DI POTENZA”.! P% 

1047 (NPUT"COS < F) =SFASAMENTO";C.RETURN 

1048 INPUT”RO=RESISTIVITA 7 IN OMTMM2/KM";RO 

1049 INPUT”L=LUNGHEZZA IN KM”:L 
105C INPUT”P=POTENZA IN WATT ”:P 

1051 INPUT"V=TENSIONE IN VOLT";V 

1052 INPUT”PP=PERD. DI POTENZA";PP: RETURN 

1053 INPUT"RQ=RESISTIVITA'IN OMfMM2/KM”;RO 

1054 INPUT"L=LUNGHEZZA IN KMVL 

1055 INPUT”P=POTÉNZA IN WATT"'P 

1056 INPUT”V=TENSIONE IN VOLT”;V 

1057 I NPUT " P%=PERD . PERO . DI POTENZA " P% : RETURN 

1059 CLS:PRINTTAB(12)"PAGINA 2" 

1060 PRINT TAB(ó>"RIFASAMENTO. ...... 13" 

1061 PRINTTAB<6)"SEZIONE GONDUTT...14” 

1062 PRINTTAB(6)"POTENZA PERDUTA ... 15” 

1063 PRINTTAB<6)"CADUT.DI TENSIONE.16” 

1064 PRINTTAB ( 6 ) "PESO CONDUTTORI . . . 1 7 " : INPUT A 

1075 IF A=13 GOTO ^60 

1076 IF Pi -14 GOTO 985 

1077 IF A=15 GOTO 1090 

1078 IF A=16 GOTO 1150 

1079 IF A=17 GOTO 1200 

1090 CLS;PRINT"POTENZA PERD.IN CO PREMI.X” 

1091 FRINT"POTENZA PERD.IN CAM PREMI.Y" 

1092 PRINT"POTENZA PERD.IN CAT PREMI.J" 

1093 PRINT"SE HAI P% E P PREMI.-P" : INPUT J$ 

1097 IF J $ = "X"GOTO 1102 

1098 IF J$="Y"GOTO 1116 

1099 IF J$= M J"GOTO 1116 

1100 IF J$="p"GOTO 1134 

1102 CLS:FRINT"DAMMI I VALORI DI RO ? L ? S,P,V" 

1104 INPUT"RO=RESISTIVITA 7 IN OHMTMM2/KM";RO 

1106 INPUT"L=LUNGHEZZA IN KM":L 

1108 INPUT"S=SE2IONE IN MM2".‘S 

1110 INPUT"P=POTENZA IN WATT”;P 

1112 INPUT"V=TENSIONE IN VOLT”;V 

1114 PP*2XKQ%t (L/S)t((P A 2)/(V A 2) ) ) :G0T01142 

1116 CLS .'PRINT "DAMMI I VALORI DI RO, L, S, F', V, COS ( F ) 

1118 INPUT"RO=RESISTIVITA 7 IN OHMTMM2/KM ' :RO 









1120 INPUT"L=LUNGHEZ2A IN KM"L 
1122 INPUT"BISEZIONE IN MM2 "'S 
1124 INPUT"P=PQTENZA IM WATT";P 
1126 INPUT"V=TENSIONE IN VOLT";V 

1128 INPUT H C=COSENO(F) M . C 

1129 IF J$ = " J 11 GOTO 1132 

1 130 PP=2 t'RQ:+: ((L/S)*(<P A 2>/MV A 2)*<C A 2)))> : GOTO 1142 
1132 PP=RO*< ( L / £ ) t ( ( P A 2 ) / ( < V A 2 ) * ( C A 2 ) ) ) ) :GGTOU42 
1134 CL£;PRINT"DAMMI I VALORI DI P% E P" 

1136 I NPUT " PC-POTENZA PERO . IM PERO . : PC 
1136 INPUT"P=POTENZA IN WATT"'P 
1140 PP=<PC*P)/100 

1142 PRINT : FRINT"LA POTENZA PERDUTA IN LINEA" 

114 3 PR INT " E ' PP= " .ì PP " WATT " 

1144 PC»<PP/P>*100 : IPJ$ = "P H G0T01146 

1145 FRINT"LA POTENZA PERDUTA SULLA LINEA IN PERO.E'PC=" PC 

1146 END 

1150 CLS:PRINTTAB(2)"CAD■DI TENS.IN CO PREMI.G" 

1152 FRINTTAB(2)"CAD.DI TENS.IN CAM PREMI.M" 

1154 PRINTTAB(2>"CAD.DI TENS.IN CAT PREMI.T" 

1156 PRINTTAB(2)"SE HAI V% E V PREMI.V";: INPUT K$ 

1160 IF K $ = "C" GOTO 1168 
1162 IF K$ = "M" GOTO 1173 
1164 IF K$ = "T" GOTO 1173 
1 .166 IF K*="V" GOTO 1167 

1168 CLS:PRINT"DAMMI I VALORI DI R,I,V" 

1169 INPUT"R-RESISTENLA IN OHM"?R 

1170 INPUT"INCORRENTE IN AMP. " ; I ; INPUT"V=TENSIONE IN VOLT" :V 

1171 CV = 2* ( R* I ) : GOTO 1192 

1173 CLS:FRINT"DAMMI I VALORI DI R,XL,I,COB<F),SIN(F),V" 

1174 INPUT"R=RESISTENZA IN OHM".:R 
1176 INPUT"XL=REATT.INDUTT.IN OHM"JXL 
1176 INPUT"I=CORRENTE IN AMP." : I 

1180 INPIJT"C=COSENO < F ) " ; C 

1182 INPUT"S=SENOXF)";S: INPUT"V=TENSIONE IN VOLT" 'V 

1183 IF K$ = "T" GOTO 1185 

1184 CV=< (2^:RV:( I *C ) ) + ( <2*XL)*( I*S) ) : GOTO 1 192 

1185 CV=1.73*< < <R*I ) *C) + ( (XL*I >*S) ) : GOTO 1192 
1187 CLS:FRINT"DAMMI I VALORI VC E V" 

1189 INPUT"VG=CAD.PERO.DI TENSIONE" VC 

1190 INPUT"V=TENSIONE IN VOLT":V 

1191 CV=(VC*V)/100 

1192 FRI NT "LA CADUTA DI TENSIONE IN LINEA" : PRINT"E ' CV= " CV" VOLT" 
1194 VC='CV/V)*100: IF K$-"V"GOTO1197 

1196 FRI NT "LA CADUTA PERO . SULLA LINEA" : FRI NT "E ' VC= " VC : END 

1197 END 

1200 CLS:PRINTTAB<2)"PESO GONDUTT.IN OC PREMI.C" 

1202 PRINTTAB(2)"PESO CONDUTT.IN CAM.PREMI.M" 

1204 PRINTTAB(2)"PESO CONDUTT.IN CAT.PREMI.T"INPUT B$ 

1206 IF B$="C" GOTO 1212 
1208 IF B$ = "M" GOTO 1212 
1210 IF B$ = "T" GOTO 1212 

1212 CLS:FRI NT"DAMMI I VALORI DI GS ? L ? S" 

1213 INPUT"GS=PESO SPECIFICO IN KG/DM3VGS 

1214 INPUT"L=LUNGHEZZA IN KM"'L 

1215 INPUT"S=SE2IONE IN MM2".:S 

1216 IF B$ = "T"GOTO 1219 

1218 G=(2*GS)*(L*©) : GOTO1221 

1219 G=(3*G£)*(L*S) 

1221 PRINT"IL PESO GONPLESSIVO DELLA LINEA":PRINT"E'G=":G"KG" 
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DI G. LUONI 


Trucchi regole e consigli 


Intelligenza artificiale e giochi 


Uno dei primi problemi affrontati da chi 
si occupava di intelligenza artificiale, fu 
quello di programmare un computer per 
metterlo in grado di giocare una partita 
su un qualsiasi tipo di scacchiera. 
Immediatamente è bene porsi la se¬ 
guente domanda: 

"Come possiamo programmare un 
computer in modo tale che ogni mossa 
risulti simultaneamente valida e scelta in 
maniera intelligente?" 

La risposta affonda le sue radici nelle 
teorie del matematico C. Shannon, il 
quale riuscì a formulare una definizione 
matematica di questo tipo di giochi. 
Per meglio comprendere questa teoria 
conviene rifarsi al più semplice di que¬ 
sti passatempi e precisamente al "tris o 
filetto" (bene o male caro a tutti gli stu¬ 
denti). 

Tale gioco viene svolto su una scacchie¬ 
ra di 9 caselle (3x3), tra due giocatori 
che a turno dispongono le proprie pe¬ 
dine. 

Il fine ultimo di ogni giocatore è di riu¬ 
scire a disporre 3 propri pezzi in fila (non 
importa se orizzontalmente, verticalmen¬ 
te o in diagonale). 

Ma allora, come possiamo programma¬ 
re un calcolatore affinché giochi corret¬ 
tamente? 

Prima di tutto avremo bisogno di: 

- uno schema che rappresenti la scac¬ 
chiera 

- uno schema per l’immissione e l'emis¬ 
sione delle mosse 

- un algoritmo che faccia eseguire al cal¬ 
colatore la mossa migliore. 

La scacchiera possiamo rappresentar¬ 
la grazie ad una matrice numerica. 

Per quanto concerne le pedine, baste¬ 
rà stabilire una convenzione, per esem¬ 
pio: 

0 per casella vuota 
% per giocatore 1 
* per giocatore 2 

La situazione iniziale, cioè la scacchie¬ 


ra vuota, possimo pensare di rappre¬ 
sentarla nel seguente modo: 

0 0 0 

0 0 0 

0 0 0 

mentre quella che potrebbe simulare 
una situazione vincente: 

o/o * * 12 2 

% * * 12 2 

% 0 % 10 1 

In che modo possiamo fare scegliere al 
computer una buona mossa? 
Qualunque sia la posizione fissata, le 
mosse possibili sono sempre in nume¬ 
ro finito, per esempio inizialmente sono 
possibili 9 mosse. 

Possiamo pensare di fare agire il com¬ 
puter nel seguente modo: all'inizio tro¬ 
va che tutte le mosse sono possibili, in¬ 
fatti basta trovare tutte le caselle contras- 
segnate da 0, dopo di che crea in me¬ 
moria tante posizioni quante sono le 
mosse possibili e le contrassegna come 
per indicare che è il giocatore 1 ad in¬ 
serirsi in quella posizione. 

A questo punto il ragionamento diviene 
ripetitivo, infatti, per ogni nuova posizio¬ 
ne, il calcolatore stabilisce quali siano 
tutte le mosse possibili contrassegnan¬ 
dole con *, in quanto ora è il giocatore 
2 che le può effettivamente creare. 

A causa della natura del gioco, in bre¬ 
ve potremo avere in memoria tutte le po¬ 
sizioni e le partite possibili. 

Giunti a questa situazione diremo che 
il calcolatore ha costruito "l’albero fina¬ 
le del gioco”. 

In pratica, la figura che otteniamo, rico¬ 
struendo graficamente tutte le possibili 
varianti, assomiglia ad un albero, che 
per convenzione viene disegnato alla ro¬ 
vescia. 

Ora analizzeremo le parti terminali del¬ 
l’albero, dette "foglie", ed indicheremo 
con " + ” tutte le posizioni vincenti, con 
quelle perdenti e con "= ” quelle 


di parità. 

L'obbiettivo iniziale di ricercare la mos¬ 
sa di partenza migliore è stato trasfor¬ 
mato, nella ricerca lungo questo albe¬ 
ro, di un cammino che ci porti ad una 
situazione vincente o, nel peggiore dei 
casi, di parità. 

Come può proseguire il programma? 
È importante notare che l'avversario, 
ogni qualvolta tocchi a lui muovere, ese¬ 
guirà quella che a suo giudizio sarà la 
mossa migliore; se così non fosse la vit¬ 
toria non sarebbe forzata. 

L’algoritmo risolutivo di Shannon, comu¬ 
nemente noto come "metodo del mini¬ 
max", parte da un'analisi delle foglie per 
risalire mano a mano verso la radice, as¬ 
segnando un valore grazie alle seguenti 
regole: 

> Se nella posizione troviamo un "%" 
allora lo marcheremo con " + ” solo se 
tutte le posizioni figlie sono anche loro 
marcate con " + ” 

> Se nella posizione troviamo il segno 
"*” allora lo marchermocon a con¬ 
dizione che ci sia almeno un figlio mar¬ 
cato 

> Se nella posizione troviamo il segno 

allora lo marcheremo con solo 
se tutte le posizioni figlie sono anche lo¬ 
ro "-” 

> Se nella posizione troviamo il segno 
"%’’ allora lo marcheremo a condi¬ 
zione che ci sia almeno un figlio marca¬ 
to “ + ” 

> In tutti gli altri casi marcheremo con 

ii >i 

A questo punto risalendo su per l’albe¬ 
ro, giungeremo a marcare anche la po¬ 
sizione di partenza: 
in questo modo scopriamo che il "tris", 
se giocato correttamente, finisce sem¬ 
pre alla pari. 

Preferisco non dilungarmi ulteriormen¬ 
te lasciando al lettore il piacere di redi¬ 
gere il programma. 

Buon lavoro! 
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Trucchi regole e consigli 


A CURA DELLA REDAZIONE 

Routine di input controllato 


Una delle esigenze più sentite da chi 
programma molto è quella di poter con¬ 
trollare completamente le immissioni da 
tastiera in modo che l’utilizzatore del 
programma non si trovi costretto a pre¬ 
mere dei tasti inutilmente. 

Il controllo dei dati in ingresso è essen¬ 
ziale in un programma ben scritto; pren¬ 
diamo ad esempio un programma che, 
dovendo richiedere l’inserzione di un 
numero utilizza la seguente linea di pro¬ 
gramma: 

100 INPUT “Numero”; N 
Quando il computer esegue questa li¬ 
nea si sa che l'esecuzione del program¬ 
ma viene arrestata per permettere l’in¬ 
troduzione di un valore da tastiera. 

Ma cosa succede se al posto di un nu¬ 
mero viene ad esempio introdotta la let¬ 
tera b? 

Appena viene premuto il tasto di immis¬ 
sione ecco che il basic prende il control¬ 
lo dell’esecuzione e visualizza il messag¬ 
gio "REDO FROM START”. 

La visualizzazione di un simile messag¬ 
gio significa in genere due cose; la pri¬ 
ma che si è cercato di immettere un va¬ 
lore che non poteva essere immesso e 
la seconda che chi usa il programma 
non si cura del fatto che se possono es¬ 
serci degli errori questo sicuramente ac¬ 
cadrà. 

Per evitare questi ed altri problemi ab¬ 
biamo pensato di realizzare una routine 
(o sottoprogramma) universale che vi 
permetterà di risolvere ogni problema di 
gestione dell’input nei vostri programmi. 
Vediamo ora di definire che cosa si vuo¬ 
le ottenere dalla subroutine. 
L’istruzione input consente di immette¬ 
re un valore in una variabile; non con¬ 
sente però di specificare di quanti ca¬ 
ratteri al massimo deve essere questo 
valore. 

Supponiamo di aver realizzato un pro¬ 
gramma di gestione di un archivio ana¬ 
grafico; per questioni di omogeneità e 


di semplicità di memorizzazione tutte le 
informazioni, come nome, cognome, 
ecc., devono avere una lunghezza mas¬ 
sima prestabilita. 

Ecco quindi che per immettere i dati è 
più utile avere un’istruzione che permet¬ 
ta di stabilire quanti caratteri al massi¬ 
mo possono essere introdotti. 

Un’altra caratteristica interessante è 
quella di poter “filtrare" i caratteri in in¬ 
gresso. 

Filtrare i caratteri significa accettare so¬ 
lo quelli che interessano; ad esempio se 
stiamo richiedendo l’immissione di un 
nome i numeri e i segni non alfabetici 
(+-*!%,) non ci interessano, anzi sa¬ 
rebbe opportuno impedire che possa¬ 
no essere immessi. 

Un altro caso in cui è opportuno filtrare 
i caratteri è quello dell’immissione di un 
numero; infatti in un numero le lettere o 
i simboli non alfabetici non sono molto 
indicati. 

Un’altra caratteristica molto importante 
della routine di input è quella di poter 
essere utilizzata per l’editing di un valo¬ 
re già contenuto in una variabile. 
Tornando all’esempio dell’archivio ana¬ 
grafico è ovvio che durante l’inserimento 
può essere commesso un errore; ad 
esempio al posto di “ELISA” potrebbe 
essere immesso “ELSA”. 

Un errore del genere dovrebbe richie¬ 
dere, per la sua correzione uno sforzo 
minimo; basterebbe infatti portare il cur¬ 
sore sulla “S”, premere il tasto di inse¬ 
rimento per creare uno spazio e final¬ 
mente inserire la “I”. Purtroppo se si uti¬ 
lizza l’istruzione INPUT le cose non van¬ 
no così; infatti INPUT richiede che il da¬ 
to da immettere sia reinserito compieta- 
mente. 

Il dover reinserire completamente un da¬ 
to è accettabile raramente solo nei pro¬ 
grammi dilettantistici, non di certo in pro¬ 
grammi professionali o comunque evo¬ 
luti. 


L’ultima considerazione da fare è quel¬ 
la che lo scrivere una routine del gene¬ 
re ha senso se e solo se il programma 
esegue un gran numero di immissioni, 
magari anche contemporaneamente 
sulla stessa pagina video. 

In questo caso si pone anche il proble¬ 
ma del movimento tra i campi, oltre a 
quello nel campo. 

Ricordiamo che per campo si intende 
una parte di un’informazione comples¬ 
sa; ad esempio l’informazione anagra¬ 
fica relativa ad una persona può esse¬ 
re composta dal campo ‘nome’, dal 
campo ‘cognome’ e così via. 
Tornando al problema del movimento 
tra campi, se sul video vengono richie¬ 
sti nome, cognome ed indirizzo ed il cur¬ 
sore sta lampeggiando sul cognome, 
deve essere possibile arrivare al nome 
premendo il tasto cursore in alto, men¬ 
tre premendo il tasto return o cursore in 
basso si deve poter arrivare al campo 
successivo a quello del cursore. 
Ulteriori aiuti all’immissione possono es¬ 
sere introdotti assegnando particolari si¬ 
gnificati ai tassi, come quello di cancel¬ 
lare completamente l’immissione al ta¬ 
sto ESC, quello di posizionare il curso¬ 
re sul primo carattere del campo al ta¬ 
sto HOME, e così via. 

Stabiliamo quindi il nome ed il significa¬ 
to delle variabili da definire prima di far 
eseguire la routine ed il valore e il signi¬ 
ficato delle variabili calcolate dalla rou¬ 
tine, nonché le azioni da far eseguire ai 
tasti di editing. 

Valori da definire prima di chiamare la 
routine. 

1 — linea dello schermo dove effettua¬ 

re l’immissione: GL; 

2 — colonna dello schermo dove effet¬ 

tuare l'immissione: GC; 

3 — ampiezza (caratteri) del campo di 

immissione: GS; 

4 — tipo di filtro da applicare all’immis¬ 

sione: Cl$; 
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5 — valore del campo da sottoporre ad 
editing: GS$. 

Significati e limiti dei valori: 

GL: deve essere compreso tra 1 ed il 
numero di linee dello schermo; 
GC: deve essere compreso tra 1 ed il 
numero di colonne dello schermo 
diminuito dell'ampiezza del campo 
di immissione 

GS: deve essere compreso tra 1 ed il 
numero di colonne dello schermo. 
Cl$: può assumere i seguenti valori: 
"A” - consente l’immissione solo di 
numeri o lettere; 

"B" - consente l’immissione solo 
delle lettere "S" o "N", con¬ 
vertendo le minuscole in 
maiuscole; 

“I” - consente l’immissione dei 
soli numeri; 

“L" - consente l'immissione delle 
sole lettere; 

"R" - consente l’immissione di nu¬ 
meri reali positivi; 

“Z” - consente l'immissione di nu¬ 
meri reali; 

“ ” - consente l’immissione di 
qualsiasi carattere. 

Azioni da compiere con i tasti di editing 
ESC cancellare completamente tutto 
ciò che è stato immesso. 
HOME portare il cursore all'inizio del 
campo. 

INS inserire un carattere bianco alla 
posizione del cursore, spostan¬ 
do a destra ciò che viene dopo. 
DEL cancellare il carattere sotto il cur¬ 
sore e riavvicinare la parte a de¬ 
stra del cursore. 

CURSORE A DESTRA: 
spostare il cursore a destra di una posi¬ 
zione; se si arriva alla fine del campo di 
immissione ignorare il comando. 
CURSORE A SINISTRA: 
spostare il cursore a sinistra di una po¬ 
sizione; se si arriva all’inizio del campo 
di immissione ignorare il comando. 
CURSORE SU (o PgUp) 
terminare la routine di immissione e se¬ 
gnalare, assegnando 0 a GDOWN%, 
che si vuole passare al campo prece¬ 
dente. 

CURSORE GIÙ, RETURN (o PgDn) 
terminare la routine di immissione e se¬ 
gnalare, assegnando 1 a GDOWN°/o, 


che si vuole passare al campo succes¬ 
sivo. 

I seguenti tasti riportano due definizio¬ 
ni; la prima è per la tastiera di macchi¬ 
ne che utilizzano il GW-basic, la secon¬ 
da per LASER 500. 

CTRL-END DEL-LINE 
tutto il contenuto del campo in immissio¬ 
ne, a partire dalla posizione del cursore 
fino alla fine, viene cancellato; dare que¬ 
sto comando con il cursore sul primo ca¬ 
rattere del campo di immissione equiva¬ 
le a premere ESC. 

END SHIFT-HOME 

porta il carattere sull’ultima posizione del 
campo di immissione. 

Valori e significati delle variabili calcola¬ 
te dalla routine: 

GS$ risultato dell’editing su GS$; nel ca¬ 
so di immissione numerica il risultato è 
incolonnato a destra. 

GDOWN% indica, valendo 1, che si è 
premuto return o cursore giù per uscire 
dalla routine; se, invece, vale 0 l’uscita 
dalla routine è stata provocata dal tasto 
cursore-su. 

Per realizzare la routine si è fatto uso di 
alcune interessanti tecniche di program¬ 
mazione, e più precisamente: 
si è fatto uso della funzione INSTR per 
semplificare le espressioni logiche dei fil¬ 


traggi e dei controlli. 

Si è tenuto presente che il GW-BASIC 
genera in immissione dei codici a due 
caratteri per i tasti di editing; il primo dei 
quali è sempre di codice 0 
Si è utilizzato la struttura di controllo 
WHILE .. WEND quando si è dovuto ri¬ 
solvere il problema di far ripetere un 
gruppo di istruzioni fino al verificarsi di 
una particolare condizione. 

La struttura WHILE .. WEND esegue le 
istruzioni tra WHILE e WEND finché la 
condizione logica specificata da WHILE 
è valida. 

Ad esempio il seguente programma cal¬ 
cola la radice quadrata di un numero im¬ 
messo finché il numero immesso è mag¬ 
giore di 0 

10 INPUT “NUMERO”; A 
20 WHILE A>0 

30 ? "RADICE =’’; SQR (A) 

40 INPUT "NUMERO”; A 
50 CLS 
60 WEND 

70 ? "FINE PROGRAMMA" 

Nota: la linea 10 serve per entrare nel 
ciclo while all'inizio perché a partenza 
programma (RUN) A vale 0. 

11 programma che segue è composto 
dalla routine di input (da linea 2000 in 
poi e da un breve programma che la uti¬ 
lizza. 


ESEMPIO DI LISTATO DEL PROGRAMMA PER GW-BASIC 
10 CLS 

20 FOR 1=1 TO 7 

30 READ K(I),Y(I!,L(I),T$(Il,Ct(II,D$(I):PF:[NT D*(I):PRINT 

40 NEH I 

SO FOR 1=1 TO 7 

60 6C=X(I):BL=Y(I):6S=L(1) 

70 CI$=T$(I):5S$=C$(I) 

80 60SU8 2000 
90 C$ ( I)=6S$ 

100 IF GDOHN%=0 AND 1)1 THEN 1=1-2 
110 NEXT I 
120 CLS 

130 FOR 1=1 TO 7 

140 PRINT’contenuto campo"; I;C$(I):FRINT 
150 NEH 1 
160 END 

500 DATA 20,1,25,"*,prova routine di input,PRIMO CAMPO 

510 DATA 20,3,10,1,123,SECONDO CAMPO 

520 DATA 20,5,15,L,abcdefghi1inopq,TERZO CAMPO 

530 DATA 20,7,15,1,lettere e 1234,QUARTO CAMPO 

540 DATA 20,9,15,R,123.45,QUINTO CAMPO 

550 DATA 20,11,15,7,-4565,SESTO CAMPO 

560 DATA 20,13,15,6,s,SETTIMO CAMPO 
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1000 

1010 

1020 

1030 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

2000 

2010 

2020 

2030 

2040 

2050 

2060 

2070 

2080 

2090 

2100 

2110 

2120 

2130 

2140 

2150 

2160 

2170 

21B0 

2190 

2200 

2210 

2220 

2230 

2240 

2250 

2260 

2270 

22B0 

2290 

2300 

2310 

2320 

2370 

2380 

2390 

2400 

2410 


REM tltll ROUTINE DI INPUT CONTROLLATO 

REM tltll GC = COLONNA DI GET 

REM ttttt GL = LINEA DI GET 

REM Ititi GS = AMPIEZZA CAMPO 

REM Ulti GSi = STRINGA DI GET 

REM ttttt GD0NN7, 1 SE RETURN, 0 SE CURS. UP 

REM tltll CI♦ = ’P solo numeri interi 

REM Ulti = "L" sol q lettere 

REM tttt» = ‘A’ solo alfa-numeri 

REM ttttt = "R" solo numeri reali positivi 

REM ttttt = "Z" solo numeri reali 

REM ttttt = "8“ solo 3 o N 

REM ttttt = " tutti i caratteri 

GPC=1 :IF INSTRPRIZ",CI$) >0 THEN HH1LE LEFT$(GS$, 1) = " " :GS$=MID$(GS$, 2) :WEND 
LOCATE GL , GC: GS$=LEFT t(GSt+SPACEt (GS) , GS) : COLOR 0,7:PRINT GS$;:COLQR 7,0:PR1NP ■; 
LOCATE GL ,GC+GPC-1,1 
SC$=" 

NHILE GC$=”:GCt=INKEY$:WEND 
LOCATE ,,0 

IF GC$)CHR$(31) AND GC$<CHR$ ( 12B) THEN GOSUB 2200:G0T0 2010 
IF GCt=CHR$(27) THEN GS$="":GPC=1 
IF ABC(BC$ ) =0 THEN GC$=MIDt(GCt,2) 

IF GC$='M’ AND GPCCGS THEN 6PC=GPC+1 
IF GC$="K" AND GPOl THEN 6PC=BPC-1 

IF GCt^'P" OR GC$=’B" OR 8C*=CHR$ (13) THEN GDONNMiGOSUB 2400-.RETURN 
IF GC$="H' OR 6C$='P THEN 6D0WN’À=0: GOSUB 2400-.RETURN 
IF GC4="u’ THEN GSt=LEFTt(GSt,GPC-l) 

IF GC$="S" THEN GS$=LEFT$!6St,GPC-l)+MID$l6S$,GPC+l) 

IF GCt-'R" THEN GS$=LEFT$(GS$, GPC-1> + " "+MID$(GS«,GPC) 

IF GCÌ r "G" THEN GPC=1 
IF GCt="0" THEN GPC=GS 
GOTO 2010 

REM ttttt controllo di validità’ carattere 
IF CI 4= "" THEN 2300 

IF INSTR4 , IARZ",C1$)>0 AND GCt'^’O" AND GC$<=*9* THEN 2300 

IF (CI*=“L" OR CI»="A’I AND (GC$)="A" AND 6C$<=“Z" OR GCtPV AND GCt^V OR BCt=" 

IF ICIt^R" OR CI«=”Z") AND GC$=V THEN 2300 

IF CI$= r B* AND INSTR( "SNsn " ,GCt )>0 THEN 2300 

IF CIt="Z" AND GC^"-" AND SPC=1 THEN 2300 

RETURN 

REM 

REM ttttt conversione in maiuscolo per campi logici e sostituzione carattere 
REM 

IF CI$="B" THEN IF INSTR("sn",GC$)>0 THEN 5C$=CHR$(ASC(GC$Ì-321 
IF GPCOGS THEN MID* (GS$, GPC, 1 ) =GC$: IF GPC< SS THEN GPC=EPC+L 
RETURN 
REM 

REM ttttt aggiustamento a destra dei campi numerici 
REM 

IF INSTRPIRZ",CI4i=0 OR 01»=”’ THEN RETURN 
GSI=STR$(VAL(GS$)) 


2420 LOCATE GL,EC:GSt=RIGHTt(SPACEÌ(£S)+GSt,GS): COLOR 0,7:PRINT GStpCQLOR 7,0:PRINT" *; 
2430 RETURN 


") THEN 2300 
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Note alla versione per Laser 500: 

Il laser 500 non possiede l’istruzione LO¬ 
CATE che nel GW-BASIC, oltre a posi¬ 
zionare il cursore in una determinata po¬ 
sizione serve a far lampeggiare il cur¬ 
sore. 


Per fare lampeggiare il cursore in una 
determinata posizione si è quindi dovu¬ 
to ricorrere ad una semplice routine in 
linguaggio macchina; per fortuna la rou¬ 
tine è già presente nel laser 500, basta 
farla richiamare al momento opportuno. 


La linea 3 del programma prepara gli 
indirizzi per richiamare questa routine. 
La linea 2020, tramite l’istruzione POKE, 
attiva il lampeggio. 

La linea 2050 disattiva il lampeggio. 


LISTATO PER LASER 500 


1 DEL FNP$ ! Y, X )=CHR$ f 27 ) +CHR$ ( 1 6 1 ) (31*X )+CHR$ ( 311Y i 

2 RV$=CHR$(27)+"B":N0$=CHR$(27)+"A M 

3 POKE &HB013, itH40 : POKE feHBO 14, StHOft : RE M PREPARAZIONE LAMPEGGIO 
10 CLS 

20 FOR 1=1 TO 7 

30 READ X(I),Y(I),L(I),T$(I1,C$(I),D$(I):PRINT DUI) SPRINT 

40 NEXT I 

50 FOR 1=1 TO 7 

60 GC=X(I):GL=Y(1):BB=L ( I) 

70 CI$=T*(I):8S*=C$(I) 

80 GOSUB 2000 
90 C$!I(=GS$ 


100 IF GD0HNX=O AND DI THEN 1 = 1-2 
110 NEXT I 
120 CLS 

130 FOR 1=1 TO 7 


140 PRINT”contenuto ca«po”;I;C$(I):PRINT 


150 NEXT I 
160 END 

500 DATA 20,1,25,“",prova routine di input,PRIMO CAMPO 

510 DATA 20,3,10,1,123,SECONDO CAMPO 

520 DATA 20,5,15,L,abcdefghi1 nmopq,TERZO CAMPO 


530 DATA 
540 DATA 
550 DATA 
560 DATA 
1000 REM 
1010 REM 
1020 REM 
1030 REM 
1040 REM 
1050 REM 
1060 REM 
1070 REM 
1080 REM 
1090 REM 
1100 REM 
1110 REM 
1120 REM 


20.7.15, L,lettere e 1234,QUARTO CAMPO 

20.9.15, R,123.45,QUINTO CAMPO 

20.11.15, Z,-4565,SESTO CAMPO 
20,13,15, 8,5, SETTIMO CAMPO 
Ittll ROUTINE DI SET 

GC = COLONNA DI SET 
GL = LINEA DI GET 
GS = AMPIEZZA CAMPO 
GS$ = STRIN6A DI GET 
GD0NNX 1 SE RETURN. 0 SE CURS. UP 


UHI 

mu 

imi 

mu 

mu 

mtt 

imi 

mu 

mu 

mu 

mu 

mu 


CI$ = "I" solo numeri interi 
= "L" solo lettere 
= "A” solo alfa-numeri 
= "R" solo numeri reali positivi 
= "Z" solo numeri reali 
= *B" solo S o N 
= "" tutti i caratteri 


2000 6PC=1:IF INSTR("RIZ",CI$)>0 THEN WHILE LEFT$(BS$,1)=" ":GS$=MID*(GS*,2):HEND 
2010 GS*=LEFT*(GS$+SPftCE$(GS),GS):PRINT FNP*(GL,GC);RV*;GS*;NO*;’ 

2020 PRINT FNP*(6L,6C+6PC-1); :POKE 6H8012,fcHC3:REM ATTIVA LAMPEGGIO 
2030 GC*="’ 

2040 WHILE GC*=””:6C*= INK.EY*:WEND 
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2050 POKE &H8012,iHC9:REN SPEGNE LAMPEGGIO 

2060 IF GC*>CHR$(31) AND GC$<CHR$(127) THEN GOSUB 2200:GOTO 2010 

2070 REM CONTROLLO CARATTERI DI CONTROLLO 

2080 IF GC$=CHR*(27) THEN 6GÌ=”’:GPC=1 

2090 IF GC*=CHR$<25) AND 6PC<GS THEN GPC=BPC+1 

2100 IF GC$=CHR$(8) AND GPD1 THEN GPC=GPC-1 

2110 IF GC*=CHR*(29) OR GC$=CHRt(13) THEN 6D0MNX=1:GOSUB 2400:RETURN 

2120 IF GC$=CHR$(24) THEN GD0MNX=0:GOSUB 2400:RETURN 

2130 IF GC$=CHR$(30) THEN GS$=LEFT$(GS$,GPC-1) 

2140 IF GC$=CHR$(127) THEN GS$=LEFT«(GS$,GPC-1)+MID$<GS$,GPC+1) 

2150 IF GC*=CHR$(21) THEN GS*=LEFT»(GS$,GPC-1)+" "+MID$(GS«,GPC) 

2160 IF GC$=CHRt(28) THEN GPC=1 

2170 IF GC$=CHR$(31) THEN GPC=GS 

2180 GOTO 2010 

2190 REM Uttt controllo di validità’ carattere 
2200 IF CIÌ= B ’ THEN 2300 

2210 IF 1NSTR(*IARZ',CI$)>0 AND 6C$>= , 0" AND GCt^T THEN 2300 

2220 IF (C1$='L' OR Cli^A 1 ) AND (GC$>= , A" AND GC$< = B Z M OR GC$>="a’ AND GC$<= , z’ OR GC$=- ”) THEN 2300 

2230 IF (CI$=“R- OR CU^Z") AND 6C$=V THEN 2300 

2240 IF CU='B' AND INSTR("SNsn",SC») >0 THEN 2300 

2250 IF CIM-Z" AND 6C$=*-* AND GPC=1 THEN 2300 

2260 RETURN 

2270 REM 

2280 REM Itili conversione in «aiuscolo per ca*pi logici e sostituzione carattere 
2290 REM 

2300 IF CI$* , B I THEN IF INSTR("sn",GC$)>0 THEN GC«=CHR«(ASC(GC$)-32) 

2310 IF GPC<=GS THEN MIDI(6S$,GPC,1)=GC*:IF GPC< GS THEN 6PC=GPC+1 
2320 RETURN 
2370 REM 

2380 REM Itili aggiustaiento a destra dei caspi nuierici 
2390 REM 

2400 IF INSTR(*IRZ\CII)=0 OR CI*="- THEN RETURN 
2410 GB$=STR$(VAL(GS$)) 

2420 GS$=RIGHTÌ(SPACE*(GS)+GS$,GS):PRINT FNP*(GL,GC);RV*;GS*; NO*; n 
2430 RETURN 




Piccoli 


annunci 


Carissimi possessori di Laser 310 e si¬ 
mili, aspirate ad un favoloso gameoso 
Laser 500? Bene! Questa è la vostra oc¬ 
casione. Il L.C.C. di Reggio Calabria ha 
istituito un concorso nazionale, il 1 ° pre¬ 
mio sarà un Laser 500! Il programma 
(game) più divertente, più rifinito grafi¬ 
camente e quello con la migliore impo¬ 
stazione riguardo la programmazione 
avrà un Laser 500 in cambio del suo 
vecchio Laser. 

L’offerta è unica ma non irraggiungibi-. 


le, inoltre vi sono premi per tutti coloro 
i quali invieranno il programma. 

Per partecipare è semplice; basta invia¬ 
re il programma su cassetta o disco con 
le eventuali spiegazioni. Non dimentica¬ 
te di allegare L. 6.500 per l’iscrizione al 
concorso. 

Inviare il tutto a: Laser Computer Club 
Viale A. Moro II traversa Nicolò Nr. 40 
89100 Reggio Calabria. 

Vendo computer Laser 310 con regi¬ 
stratore. Prezzo affare L. 150.000 più 


spese di spedizione. Telefonare a Do¬ 
nato 081/8712698 oppure 
081/8717035. Mittente: Orazzo Donato 
via G. Cosenza 240/G 80053 Castella- 
mare di Stabia (NA). 

Comprasi registratore Laser DR 30 a 
modico prezzo. 

Vendesi software per Laser 310: Circus, 
Formula 1, Cosmic rescue a L. 7.000 l’u¬ 
no + spese postali. Per informazioni 
scrivere a Donato Scognamilio, Via 4 
Orologi Nr. 37 80056 Ercolano (NA). 
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Testo dell’annuncio (massimo 300 caratteri circa) 


Attenzione: gli annunci inviati per questa rubrica, il cui contenuto sarà ritenuto non pubblicabile dalla redazione di LCC, 
saranno respinti a insindacabile giudizio e senza spiegazioni. 

Per motivi pratici, si prega di non lasciare comunicazioni o richiedere informazioni (scritte o telefoniche) riguardanti gli an¬ 
nunci inviati. 

Scrivere a macchina. Per esigenze operative, gli annunci non chiaramente leggibili saranno cestinati. 

Spedire a: ARCA s.a.s. - LASER COMPUTER CLUB - Viale Varese 83 - 22100 COMO 


SONO DISPONIBILI SU CASSETTA I PROGRAMMI 
CONTENUTI NEI NUMERI DELLA RIVISTA 


LASER COMPUTER CLUB 




Abbiamo realizzato per te su cassetta i programmi pubblicati dalla rivista, evitandoti 
così noiose digitazioni e permettendoti di utilizzare con maggiore comodità e praticità i 
tuoi programmi. 

Inviaci la cartolina qui allegata e riceverai a casa tua in contrassegno di L. 15.000 (spese 
di spedizione escluse) il programma da te richiesto. 

r 

i 

i 



i 

i 

DESIDERO RICEVERE su cassetta e contrassegno a L. 15.000 (escluse spese 

i 

postali), i programmi contenuti nella rivista per il Laser 110-210-310-500 (barrare 

i 

i 

la casella corrispondente al tipo di computer di proprietà). 

i 

i 

Nr. RIVISTA 

VERSIONE PER □ LASER 500 

i 


□ LASER 310-210-110 

i 

i 

Nr. RIVISTA 


i 

i 

i 

Nr. RIVISTA 


i 

i 

MITTENTE: 


i 

Cognome 

Nome 

i 

i 

i 

Età 

Professione 

i 

i 

Via 

Nr. 

i 

i 

CAP 

Città Prov. 

i 

i 

i 

i 

FIRMA 

DATA 

i 

i 

i 


Compilare, ritagliare e spedire ad: 

i 

i 


ARCA s.a.s. LASER COMPUTER CLUB - Viale Varese, 83 - 22100 COMO 


i 


























Il corso Scheidegger Contabilità, I.V.A. 
e Dichiarazione dei Redditi con il computer 



Questo corso è rivolto a tutti colo¬ 
ro che svolgono attività imprendi¬ 
toriali o commerciali dove cono¬ 
scere la contabilità è indispensa¬ 
bile. 

Al partecipante verrà insegnato a 
trattare tale materia con il compu¬ 
ter; la conoscenza del suo utilizzo 
vi aiuterà a risolvere i vostri pro¬ 
blemi, accellerando ed agevolan¬ 
do il vostro lavoro contabile. 

Il risultato finale sarà il raggiungi¬ 
mento di un alto livello delle vo¬ 
stre prestazioni professionali. 


Le lezioni vengono svolte da do¬ 
centi qualificati. Il successo al 
corso è garantito, il partecipante 
verrà seguito sino a quando la 
sua preparazione non sarà com¬ 
pleta. 

A fine corso verrà consegnato un 
attestato. 

La dotazione del corso è la se¬ 
guente: 

- Libri di testo. 

- Supporti magnetici con proce¬ 
dura contabile ed esercitazioni. 

- Contenitore per il materiale. 

- Utilizzo in aula di P.C. 

- Riga - gomma - matita - penna¬ 
rello - block notes. 


I corsi sono distribuiti in modo 
capillare su tutto il territorio na¬ 
zionale, dando così la possibili¬ 
tà a chiunque di parteciparvi. 

Vi invitiamo ad interpellarci, sa¬ 
remo lieti di darvi ulteriori infor¬ 
mazioni. 

Compilate, ritagliate e spedite il 
seguente tagliando a: 

Scuola Internazionale 
SCHEIDEGGER 
Via Castelnuovo, 2 
22100 COMO 


l ’-1 

I DESIDERO RICEVERE SENZA IMPEGNO INFORMAZIONI SUL CORSO DI CONTABILITÀ SU PERSONAL COMPUTER | 


I COGNOME_ NOME 

| VIA_ N. C.A.P. _ CITTA PROV. 

I N. TELEFONO_ I 

I_I 




































COMPUTER 

club 


Dicembri 1986 Anno I N 6 
Bimestrale Lire 4 000 


... Collaborare per crescere INSIEME! 

La VOSTRA rivista LASER computer CLUB è una realtà, e per questo ringraziamo tutte le persone 

che hanno contribuito alla realizzazione. 

È nostra intenzione rispettare i desideri di chi vuole avere un mezzo per comunicare idee, ricevere informazioni, o dare consigli. 
Per tale motivo vi chiediamo cortesemente di collaborare in PRIMA PERSONA alla realizzazione dei prossimi numeri di LASER 
computer CLUB, informandoci riguardo i Vostri desideri e le Vostre aspettative, per avere una rivista che sia realmente lo specchio 

dei suoi lettori. 

Abbiamo predisposto un questionario che vi preghiamo di compilare con molta cura ed attenzione, perchè ci permetterà in futuro 
di ricambiare la Vostra cortesia dandovi l’opportunità di essere i protagonisti della Vostra rivista. 

Terremo conto di ogni Vostro consiglio, per cui se volete aggiungere proposte o consigli che noi non abbiamo contemplato, 

vi saremo grati. 

Compilate il questionario SUBITO e speditelo al più presto a: 

LASER computer CLUB c/o ARCA S.A.S. 

Via Vaneggio, 2 
22100 - COMO 


Quale computer possiedi? 

□ LASER 110 □ LASER 210 □ LASER 310 □ LASER 500 □ ALTRO 

Quali programmi ti interessano maggiormente? 

□ GIOCHI DI ABILITÀ □ GIOCHI DI STRATEGIA 

□ BILANCIO FAMILIARE □ BIORITMI □ DIETA 

□ ELABORAZIONE TESTI □ ARCHIVIO PERSONALE DI DATI 

□ GESTIONE CONTO CORRENTE □ AGENDA TELEFONICA 

□ MENÙ SETTIMANALE ELABORATO SULLA BASE DEGLI ALIMENTI DI USO COMUNE CHE SONO UTILIZZATI NELLA TUA FAMIGLIA 

□ SVILUPPO COLONNARE/RIDUZIONI SCHEDINE TOTOCALCIO TOTIP etc. 

□ ELABORAZIONE PROBABILITÀ GIOCO DEL LOTTO 

□ CALCOLI MATEMATICI/SCIENTIFICI/STATISTICI 

□ UTILITIES/SUBROUTINES □ ASSEMBLER/DISASSEMBLER 

□ ALTRI PROGRAMMI (indicare quali). 


Quali argomenti vorresti fossero trattati nella rivista? 

NOTA: 

DAI UN VALORE DA UNO A DIECI AD OGNUNA DELLE VOCI SEGUENTI INDICANDO CON IL VALORE PIÙ ALTO L’ARGOMENTO CHE 
PREFERISCI. I VALORI NON POSSONO COMPARIRE PIÙ DI UNA VOLTA. 

LISTATI DI PROGRAMMI DA COPIARE ED UTILIZZARE, CON COMMENTI LIMITATI ALL’USO DEL PROGRAMMA STESSO. 

LISTATI DI PROGRAMMI DA COPIARE, COMMENTATI DAL PUNTO DI VISTA DIDATTICO, PER IMPARARE A 
PROGRAMMARE MEGLIO! 

POSTA DEI LETTORI 

INFORMAZIONI FLASH SU NUOVI PRODOTTI HARDWARE E SOFTWARE 
PROVA DI APPARECCHIATURE (DISK DRIVE, STAMPANTI, COMPUTARS) 

TRUCCHI, REGOLE DI PROGRAMMAZIONE E CONSIGLI 
APPROFONDIMENTO DEL LINGUAGGIO BASIC 
SERVIZI A PUNTATE SU ALTRI LINGUAGGI DI PROGRAMMAZIONE 
INFORMAZIONI DI CARATTERE CULTURALE SULL’INFORMATICA 
(Storia dell’informatica, curiosità, aneddoti) 

GIOCO/CONCORSO A PREMI TRA I LETTORI 





















Quale altra rubrica o servizio dovrebbe trattare, secondo te, la rivista? 


Quale frequenza dovrebbe avere la rivista? 

□ MENSILE □ BIMESTRALE □ TRIMESTRALE 

Che cosa desideri conoscere dell’informatica? (argomenti precisi, non risposte generiche) 

A) . . 

B) . . 

C) . . . 

Leggi una o più riviste di informatica? 

□ SI □ NO 

Se hai risposto si, puoi elencarle? 


Quali argomenti di interesse generale vorresti veder trattati con termini comprensibili, dal punto di vista dell’informatica? 


Immagina di essere ad una edicola. Indica alcuni titoli di copertina che ti farebbero acquistare una rivista di informatica? 


Leggi l’affermazione seguente: 

“Leggerei una rivista di informatica soltanto se fosse scritta con un linguaggio comprensibile e fosse priva di argomenti strettamente 
tecnici, contribuendo in tal modo a chiarirmi le idee”. 

Svolgi una piccola inchiesta tra i tuoi parenti, conoscenti ed amici, che conoscono poco o niente di informatica. 

Indica quante interviste hai fatto, quanti sono d’accordo con l’affermazione e quanti non lo sono: 

Nr. Interviste svolte Nr.d’accordo Nr. non d’accordo 


QUANTI ANNI HAI? 

QUALE ATTIVITÀ SVOLGI? 

□ STUDENTE SCUOLA MEDIA INFERIORE 

□ STUDENTE SCUOLA MEDIA SUPERIORE 

□ STUDENTE UNIVERSITARIO 

□ LIBERO PROFESSIONISTA in campo 

□ IMPIEGATO nel settore con funzioni 

□ DIRIGENTE in società di tipo . 

□ COMMERCIANTE settore 

□ ADDETTO EDP con mansioni 

□ ALTRA ATTIVITÀ (specificare). 


GRAZIE PER LA COLLABORAZIONE 
ARCA s.a.s. 


x 
































Software per il vostro 

LASER 500 



MINE KILLERS I terroristi semi¬ 
nano pericolose mine in un im¬ 
portante porto. 

Voi siete i custodi della tranquil¬ 
lità di migliaia di persone, e del¬ 
la Pace nel paese. 

È necessario eliminare tutte le 
mine dal porto, facendo atten¬ 
zione a non colpire le numero¬ 
se navi che transitano. □ 
14 



V_ _ J 


LASER 500 PAINT UTILITY 

Questo programma consente 
di realizzare qualsiasi disegno, 
in alta risoluzione, con 16 colori 
a disposizione. 

Alcune delle funzioni principali: 

— Disegnare, cancellare, cor¬ 
reggere punto per punto. 

— Colorare un’area con uno dei 
16 colori disponibili. 

— Salvare su nastro il disegno 
fatto. 

— Richiamare da nastro il dise¬ 
gno precedentemente salvato, 
con possibilità di correggerlo e 
salvarlo di nuovo. 

— Inserire un qualsiasi testo nel 
disegno in alta risoluzione. 

I disegni realizzati con questo 
programma potranno essere 
usati in altri programmi, di gio¬ 
co, statistica, o altro. □ 

15 


SAY-MON Divertente gioco per 
esercitare i vostri riflessi e la vo¬ 
stra memoria. 18 



BOXE (per LASER 500) Incon- 
tro di pugilato sui 9 round. Evitare 
di finire spesso al tappeto. Solo 
con |oystick. 19 


MOON LANDER La luna è or¬ 
mai diventata una base avan¬ 
zata del pianeta Terra ma ogni 
viaggio verso il satellite ripro¬ 
pone il problema della discesa 
sul suolo lunare, che deve es¬ 
sere eseguito con competenza 
dagli astronauti. 

È necessario evitare gli asteroi¬ 
di che sfecciano numerosi 
neH’oscurità dell’Universo. 
Occorre controllate la velocità 
di impatto, per non distruggere 
il modulo lunare. 

Le manovre non sono semplici, 
a causa della ridotta gravità 
della luna (circa 1/6 di quella 

tprrpotrfM 

BUONA FORTUNA!!! □ 

16 


CITY INVASION Entusiasman¬ 
te gioco spaziale, con scenario 
in grafica ad alta risoluzione, ed 
ambientazione molto suggesti¬ 
va. 

Gli invasori sono arrivati a Co¬ 
mo!!! 

Il Tempio Voltiano, che conser¬ 
va le più importanti documen¬ 
tazioni dell’attività di Alessan¬ 
dro Volta, è minacciato dagli 
invasori. 

È necessario intervenire tem¬ 
pestivamente con tutti i mezzi a 
disposizione, per difendere il 
tempio, ed il mondo. □ 

17 


NOTA BENE 

Per ordini di importo superiore a L. 40.000 spese di spedizione 
L. 2.000. Per ordine di importo inferiore a L. 40.000. spese di 
spedizione al costo. 


Per ordinare i programmi ritagliare (o fotocopiare) il tagliando, compilar¬ 
lo e spedirlo all’indirizzo indicato. 


^MULTIDIDACT 6/86 

I C/O W. SCHEIDEGGER & CO. S.a.s. I 

Via Vaneggio, 2 - 22100 COMO (Tel. 031/275088) 

I Desidero ricevere i seguenti giochi a L. 15.000 cadaiino: I 

| (indicare i codici) i 


□ 01 

□ 02 

□ 03 

□ 04 

□ 05 

□ 06 

□ 07 

□ 08 

□ 09 

□ 10 

□ 11 

□ 12 

□ 13 

□ 14 

□ 15 

□ 16 

□ 17 

□ 18 

□ 19 




per una spesa totale di L. 

Pagherò contrassegno l’ammontare dovuto, più spese postali, al 
ricevimento di quanto ordinato. 

COGNOME 

NOME 

VIA N. 

C.A.P. CITTÀ 



FIRMA 

DATA 


J 







































Nuovi entusiasmanti giochi 
per il vostro LASER 310 



MATHS FUN I Genera diver¬ 
tenti problemi di matematica per 
bambini in età prescolare. So¬ 
no possibili diversi livelli di 
difficoltà. 

01 


CRASH Controlla la tua auto e 
cerca di prendere tutti i tesori 
che incontri sul percorso cer¬ 
cando di evitare le altre automo¬ 
bili. 

02 


MATRIX Permette di eseguire 
calcoli matncali (somma di ma¬ 
trici. moltiplicazioni per un valore 
scalare, moltiplicazione fra ma¬ 
trici). 

03 


COSMIC RESCUE Pericolosa 
missione nel cuore del sistema 
solare meteoritico. Solo i migliori 
sopravvivono e realizzano il sal¬ 
vataggio cosmico. Solo con 
Joysticks. 04 



MATCH BOX Una sfida tra amici 
per scoprire il mistero delle scato¬ 
le magiche. Chi sarà più bravo nel 
comporre le coppie giuste?. Non 
richiede l’uso di Joystick. 010 


POWER LOADER Occorre cari¬ 
care la massima energia dalle 
basi spaziali evitando di essere 
disintegrati dagli scarafaggi 
alieni. 11 


TENNIS Gioco di azione tridi¬ 
mensionale. Si può giocare con¬ 
tro il computer oppure tra due 
giocatori. Utilizzabile sia tastie¬ 
ra sia joystick. 05 


6 IN ONE FUN 6 giochi per 
esercitare la mente. Gare di de¬ 
duzione. giochi di calcolo, indo¬ 
vinelli. Si gioca contro il compu¬ 
ter. 06 




ALIEN Mostri spaziali attacca¬ 
no la terra. Il grande avvoltoio 
cercherà di distruggerti ... 

12 


BOXE Incontro di pugilato sui 
7 round. Evitare di finire spes¬ 
so al tappeto. Solo con joystick. 

13 


CIRCUS La vita dei tuoi amici è 
nelle tue mani. Sono acrobati del 
circo e la loro sicurezza dipende 
dalla tua abilità. Un gioco di azio¬ 
ne in linguaggio macchina. 07 


F - 104 Gioco di azione nei cieli 
alla caccia di aerei nemici. Molto 
veloce, prevede3 livelli di difficol¬ 
tà. Solo con joystick. 08 































































